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Tn02 DRIUE FUNCTION TIMER 



PBSTRflCT 



Progrom DZTUD meosu'^es the time required ond GAP 
sizes produced by the Tn02/TU16 Magtape 

Dr I ve/SI ove 

THE TEST UILL CHECK BOTH THE LOGIC GENERRTED 
TIME DELAYS. AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE 

ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BP I SKEU TAPE. 

DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR :F THE ERROR IS DATA RELATEO(PAR I TY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS 

IF THE TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
OS AN OUT OF RANGE ERROR 
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SEQ 0003 



^^"Z DRIVE FUNCTION TlflER 
,ji r»iitent$ 
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CHfiPTER 1 
REQUlREnENTS 

POP-r FoHiiiv Central Processor yiith memory with up to TflU/TnOZ 
controller 'mogtope stations 

tItPROGR.in CPN BE i^UN ON PROCESSOR THAT DOES NOT HAVE HRRDUflRE SUITCH REGISTER 
ft SOFT»iflRE SP:TCH REGISTER (SUREG^ LOC 176 IS fiUTOtlOT I CBLLY SELECTED (REFER TO 
CHRPTEP 3 FOP OESCPIPTION OF HOW TO DYNflMICflLLY LORD LOC 1761 I** 

1 1 OPTIONAL EQUIPHEMT USED 
1 none 

1 : STORAGE 

Program loads and runs in the first MK of memorv 



: cfeliminary pROGfinns (TO assure harduare operation) 



flOlNOEC-n-DZTUC CONTROL LOGIC TEST 
flfllNDEC-ll-DZTue BASIC FUNCTION TEST 



SEQ QQO^ 



Tn02 OP I WE FUNCTION TIMER 
Loodino and Starting Procedure 
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SEQ 000& 



CHfiPTER 2 
LORDING fiND STARTING PROCEDURE 



» focedure is os folloius 

Lood progrom usinq the Absolute Looder 
Lood address = 200 
Set operoting switches 
Press stort 

«»»IF THE SOFTUORE SWITCH REGISTER IS USED THEN THE PROGRfitt MILL TYPE SUR=XXXXXX NEUs 

THIS UILL RLLOW LOC I7fe TO BE CHANGED BEFORE THE START OF THE TESTING (REFER TO CHAPTER 3 FOR OPTIONS) 

ProgroMMiM request DRIVE (TMOZ^ and SLAVE (TU16) numbers to be 
tested Type DRIVE/SLAUE numbers mth a cofflmo (, ) between each 
ORIUE/SLAVE to be tested 

REQUESTS FOR TAPE SPEED TESTS AND NR2 ONLY nODE UILL CE tIADE 
RESPONSE TO TAPE SPEED ONLY REQUEST WITH A ONE (1) UILL CAUSE 
THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY THIS IS THE ONLY UAY 
TO TEST TAPE SPEED 

NR2 ONLY MODE UILL CAUSE THE PROGRAM TO SKIP THE 1600 BP I DATA TIME TEST 
Type Control U ( U) to delete line typed or rubout tc delete last 
chorac ter (s ) 

Progrom will publish times required ond report errors 



AC Til OPERATION 

UHEN RUN IN ACTll QV OR AA MODE, THE PROGRAM UILL 
A I HALT ON ERROR 

B) RUN QV FOR THE FIRST PASS 

C) NOT PRINT A TITLE 

0) SELECT THE DEFAULT CONTROLLER ADDRESS 

TEST ALL AVAILABLE DRIVES 
D NOT RUN SKEU TESTS (31 & 32) 

G) RLLOU mZ t PI nOOE TESTING 



Tn02 DRIVE FUNCTION TltlER 
Switch Settings 
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SCO 0006 



CHRPTER 3 
SUITCH SETTINGS 



F THE DIRGNOSTIC IS RUN ON R CPU UITHOUT a SWITCH 
REGISTER THEN R SOFTURRE SUITCH REGISTER IS USED WHICH RLLOWS 
THE USER THE SAME SWITCH OPTIONS flS THE HRRDWRRE SWITCH REGISTER 
IF THE HRRDWRRE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC 176) IS USED 



CONTROL 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LORDING OF THE SOFTWARE SWITCH 
REGISTER (LOC 176) FROM THE TTY THIS CRN BE flCCOMPLlSHED 8Y 
DOING THE FOLLOWING 

1) TYPE CONTROL G < G>, THIS WILL RLLOW THE TTY TO ENTER DATA INTO 
LOC 176 RT SELECTED POINTS UITHIN THE PROGRAM 

2) THE MRCHINE WILL THEN TYPE SWR=XXXXXXNEW= (XXXXXX IS THE OCTRL CONTENTS 
OF THE SOFTURRE SWITCH REGISTER. ) 

j< RFTER THE "NEU:" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOUING AT THE TTY 

A) TYPE A NUMBER TO BE LOADED INTO LOC 176 FOLLOUED BY A 'CR^ 
(ONLY NUMBERS BETUEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED 



B> IF R CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND tOU 
BRCK TO STEP 2 



:ui5 

' 100000) 



HOLT ON ERROR 



H I 

This switch ahvn set will halt the 

?rocester when on error it detected 
he PC*2 and PSU at the tine of the 
error is stored on the stock Pressing 
continue will cause the error to be 
typed (if selected) end further testing 
resumed 



sum LOOP SUBTEST 

<0»4 00001 



SUU 

« 020000) 

ToOHOOO I 



INHIBIT ERROR 
TYPE OUT 

INHIBIT SUB- 
TEST ITERRTION 



l.lO INHIBIT 

:c:ooo' function time 

PUBLICATION 



SU09 
lOOlOOO 



RING BELL 
ON ERROR 



This switch when set loops the current 
subtest regardless of error condition 

This switch when set inhibits error 
typeout 

This switch when set causes each subtest 
to be executed only once (Initio! 
Stortup Only). 

This switch when set will inhibit the 
printing of the function t mes (See 
Chopter 7 1) 



This switch when set will 
on the TTY when on error 



r I ng the bell 
s detected 



SU07 
(000200) 



HRLT OFTER 
SELECTED TEST 



This switch when set will cause the 
program to HOLT after the test selected 
in SU05-SU00 is executed 



SMOb CONTINUOUS THIS SWITCH UHEN SET UILL CAUSE THE 

(OOOlOO) CYCLE PROGPfifl TO RUN CONTINUOUSLY UNTIL 

STOPPED BY THE OPERATOR. 



SU5-0 



TEST SELECT 



THE PROGRBM WILL HRLT AFTER EXECUTION 
OF THE TEST SELECTED WHEN SW07 IS SET 



SEQ 0007 
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Errors 
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SEQ 0008 



CHAPTER H 
ERRORS 

Two types of errors ore defected bv this program^ horduiore errors ond 
I nc erect function times 



U I ERROR TYPEOUT FOPMOT 'HflRDUflPE^ DflTfl RELATED ERRORS UE- PARITY ERROR) ARE PRINTED AS SOFT ERPORS 

AND HAVE NO EFFECT ON TIME 

TEST 8 XXXXXX DEVICE ERROR 

CSl UE BR FC CS2 DS ERl 
ooaooa bbbbbb cccccc dddddd eeeeee ffffff 999999 

•here 

yyXXXX - Test Number 

fiftOAAA-HIMI = Contents of Tope Reg-ster l72^'♦0-172^6•♦ 



u : EPP.P TiPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST « vxxxXX OUT OF RANGE ERROR 
PANGE = ^AAAAAA-BBBBBB> ACTUAL = CCCCCC 



TMOZ DRIVE FUNCTION TIMER 
Subroutine Pbstracts 



CHAPTER 5 
SUBROUTINE OBSTRPCTS 

5 I SCOPE 

The SCOPE Routine is called bv the scope (EflT^ instruction ot the 
start of each subtest The Scope routine performs the foUouiing 
functions 

1 Loads R6 with base address 

2 Types Time Line <SUOr^ 

3 Provides continuous loop <SMm> 
H Moves function time into table 
B Oftputs Line Item if selected 

b Provdes HALT on test <SU07> 

Deiovs 3C0nS before starting test 

£ init's Onve/Slove 

9 Clears the error flog (ERFLG) 

The routine monitors SU1<4. SUM, SU\0. S.M3^ and SU07 

tt»THlS ROUTINE UILL CHECK FOR CNTL G< G> BY DOING « JSR PC-CKSMR 
(REFER TO CHRPTER 3 FOR DESCRIPTION) 

5 2 PUBLISH 

The Publish Routine is colled from the Scope Routine if SUlO is equal 
to 0 (Publish Time Document) The routine will print o "SINGLE LINE 
ITEM" eoch time it is col led 
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Tn02 DRIUE FUNCTION TIMER 
Subroutine Rbstrocts 
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5 3 HLT 

The HLT Rout is colled by the HLT (Trap) instruction when on error 
IS detected R HLT (TRAP) instruction formats the error information 
as shovn i n Sec >t 1 t\ HLT^l (TRRP41) formats tHE ERROR flS SHOUN IN 
SEC H 2 

««tTHIS ROUTINE UILL CHECK FOR R CNTL G < G> BY DOING R JSR PC, CKSUR 
'REFER TO CHAPTER 3 FOR DESCRIPTION)) 



SEQ 0010 



Tn02 DRIVE FUNCTION TIMER 
n seel I oneous 
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CHRPTER 6 
ntSCELLflNEOUS 

b 1 STRC> POINTER 

The Stack Pointer is intaillv set to 500 and is reset to 600 by the 
SCOPEO Routine 

b 2 EXECUTION TIME 

Uhen SUll^l (Inhibit Iterations) the time required is 2 mm 
Uhen SUI} = 0 (Iterate Subtests) the time required ts 9 mm 



SEQ 0011 
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Program Description 
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CHAPTER 7 
PROGRRM DESCRIPTION 



7 \ SRMPLE TIME DOCUMENT 

TYPF FIRST ADDRESS OF CONTROLER 172^^0 

TYPE Tn02 DRIVE i'S TO BE TESTED 0 

FOR TM02 DRIVE 0- TYPE SLRVt »"S TO BE TESTED 7 

TAPE SPEED TESTS ONLY'' (YES/NO = 1/0) 0 

NRZ ONLY"' (YES/NO = 1/0) G 

xtttxtt%%ttttt%%txttt%tttttxtt%tttttt%ttttttxtx%xtxxtxt%tttxtxxxxtt%x 

X Tn02 DRIVE FUNCTION TIMES- DRIVE « 0 SLAVE « 7 9 CHAN. SER t 5009 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

t 
t 
« 

* 
I 

X 
X 

t 

« 
t 
t 



FUNCTION 
WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
READ FROM BOT 
START 
SHUTDOWN 
SETTLEDOWN 
REV START 
REV SHUTDOWN 
REV SETTLEDOWN 
AROUND DELAY F-R 
AROUND DELAY R-F 
SIZE-STOP HALF 
StZE-START HALF 



READ 

READ 

READ 

READ 

READ 

READ 

TURN 

TURN 

GAP 

GAP 



GAP SIZE-iHTERRECORD 
GAP CONSISANCY 
DATA TIME -200 BP I 
DATA TIME -556 BP I 
DATA TIME-800BPI 
DATA TIME-1600BPI 
ERASE GAP TIME 
kIRlTE FILE MARK 



TmE(SPECIFICATION) 
RANGE=<1 88000- 18U000> 
R AHGE : < 009500- 008700 > 
RANGE = < 008900-008500 > 
RANGE=<01 3500-008100) 
RANGE=<1 52000- m9000> 
RANGE= <003200-002600> 
R ANGE = < 00H660- OOH 250 > 
RANGEs<013500-008100> 
RANGE s < 003200- 002600 > 
RANGE=<003700-003300> 
R ANGE = < 0 1 3S00- 008 1 00 > 
RANGE=<016700-010700> 
RANGE=<016700-010700> 
RANGE=<0t2900-009500> 
RANGE =< 0 1 1 800- 008500 > 
RANGE'<0m800-013700> 
RnNGE=<0m000-012H00> 
R ANGE =< 02m 00- 023 1 00 > 
RANGE= <02H000-023000> 
R ANGE : < 02H 000- 023000 > 
R ANGE = < 025 100- 02m 00 > 
RANGE=< 101 000-099000) 
RANGE=< 105000- 103000) 



TIME (ACTUAL) 

RCTUflL=l8H7H0 
ACTUAL =009 1 20 
ACTUAL=0088H0 
ACTURL=010970 
ACTUAL=150580 
ACTUAL=0027H0 
ACTUflLs00H360 
ACTUAL=010970 
ACTUALs0027H0 
RCTUflLs003620 
ACTUAL=01097C 
ACTUflL=013600 
ACTUAL-013660 
ACTUAL ^01 2200 
ACTUAL =01 0520 
RCTUALsOmSOO 
ACTU;tL=0130^0 
RCTURL=023U60 
ACTUflL=023350 
ACTUAL=023H00 
ACTURL=02HH70 
ACT URL =0995 10 
ACTUAL =103990 
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7 I 1 SOtlPLE TIME OOCUHENT FOR TAPE SPEED TESTS 

TrPE FIRST RDDRESS OF CONTROLLER t72«»«»0 

TYPE Tn02 DRIWE fS TO BE TESTED 0 

FOR Tn02 DRIVE 0- TYPE SLRVE fS TO BE TESTED 7 

SPEED TESTS ONLY-> (YES/NO = t/O) I 

tttttttttttttttttttttttttttttttttttttttttttttttttutttttttttttnttt 

tJnOi DRIVE FUNCTION TIMES- DRIVE t 0 SLRVE ff 7 9 CHRN. SER. t 5009 
«Tn 

»FUNCTI0N TinE(SPECIFICRTION) TlflECflCTUflL) 

«TRPE SPEED FUD RRNGE:<022700-Q21700> RCTURL=022B00 

♦TRPE SPEED REV RRNGE=<022700-021700> flCTUflL=022500 
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7 2 TEST SEQUENCE UITH RELRTED ROJUSTHENTS RND flSSOCIflTED HRROURRE 



TEST HO /NRUE 



RELATED RDJUSTHENTS 



1 URITE FROfI BOT 



WRITE START 



3 URITE SHUTDOWN 



4 URITE SETTLEOOUN 



^ PERD FROn BOT 



6 RERD START 



PERO SHUTDOUN 



10 RERD SETTLEDOUN 



11 RERD REVERSE START 



12 READ REVERSE SHUTDOUN 



13 READ REVERSE SETTLEDOUN 



m TURN AROUND F-R 



IB TURN AROUND R-F 



16 GAP SIZE-STOP HALF 



17 GAP SIZE-START HALF 



20 GAP SIZE INTERRECORD 



NONE 



FURD/REV SPEED-STRRT/STOP-RAMPS 



SAME AS IN TEST 16 



FUD/REV SPEED 



SEQ oom 

ASSOCIATED HRRDURRE 
Xn8911 R0nxn8903 RCCL CNTR 
t " t 
t " * 

Xn8910 SETTLEDOUN ONE SHOT 
«n39ll R0n»n8903 RCCL CNTR 
«•■»•• 
t •' t " 

tnSSXO SETTLEDOUN ONE SHOT 
*n8911 R0n«fl8903 RCCL CNTR 
t " t " 

tm9\0 SETTLEDOUN ONE SHOT 
«n8911 R0n»n8903 RCCL CNTR 
« " « " 
^CAPSTAN SERVO LOOP 

X ■■ (11 



Tn02 DPIUE FUNCTION TIMER 

21 GBP CONSISTENCY 
« ST NUMBER 22 IS RESERVED 
ORTR TIME 200 BP I 

24 DflTO TIME 556 BP I 

25 DHTR TIME 800 BP I 
Zt DflTQ TIME 1600 BP I 
2" EPflSE GOP TIME 

WRITE FILE MARK 

31 TOPE SPEED-FORWARD 

32 TAPE SPEED-REl'ERSE 
ttmNOTE IF TIME PROBLEMS flPPEflP IN Tl 
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«SRME nS IN TEST 16 

FUTURE USE 

tNONE 

I 

* " 
t " 
t " 

«FHO SPEED 
tREVERSE SPEED 
T30. RUN TAPE SPEED TESTS FlRST*t»*«** 



*MRITE CLOCK 



SEC 0016 



% ** " 

t •' 
t " 

«n8911 R0ntM8903 ACCL CNTR 
t " " % " 
tCAPSTAN SERVO LOOP 
SCAPSTAN SERVO LOOP 
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SEQ 001b 



TEST DESCRIPTIONS 

THE FIRST THIRTEEN (13) TESTS (Tl - T15) ORE CHECKS OF THE 
ROM CIRCUITS IN THE TUlb (n98n). THE fiCCL COUNTER IN THE 
Tn02 (08903). AND THE SETTLEDOWN ONE SHOT (08910) 

Tl WRITE FROM BOT 

THIS TEST WILL MEASURE RCCELLERRT ION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA 

1 ASSURE TAPE IS STOPPED AT BOT 

2 ISSUE A WRITE COMMAND 

3 MONITOR BIT 15 OF TC (ACCL) 

H TIME FROM GO TO ACCL RESET IS BOT DELAY 

5 STOP 

t: WRITE START 

THIS TEST WILL MEASURE ACCELLERAT ION DELAY JUST AS IN 
Tl HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 
FROM BOT 

1 LEAVE TAPE AT ITS PRESENT POSITION ASSURE THAT IT IS STOPPED 

2 ISSUE A WRITE COMMAND 

3 MONITOR BIT 15 OF TC (ACCL) 

M TIME FROM GO TO RESET OF ACCL IS START DELAY 

6 STOP 

T3 WRITE SHUTDOWN 

THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME THIS 
ASSURES. IN PART, A PROPER INTERROCORD GAP 

1 LEAVE TAPE AT ITS PRESENT POSITION ASSURE THAT IT IS STOPPED 

2 ISSUE A WRITE COMMAND 

3 MONITOR FRAME COUNTER AND BIT ^ OF DS (SDWNi 
^ TIME FROM FC=0 TO ASSERTION OF SDHN IS 

THE SHUTDOWN TIME 
5 STOP 

T4 WRITE SETTLEDOWN 

THIS TEST WILL MEASURE THE SLOWDOWN TIME THE TIME 
FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 
BE STOPPED THIS IS A PART OF THE GAP TIMING IN LOGIC 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
WILL BE MEASURED IN A LATER TEST 

1 LEAVE TAPE AT ITS PRESENT POSITION ASSURE THAT IT IS STOPPED 

2 ISSUE A WRITE COMMAND 

3 MONITOR BIT M OF DS (SOWN) 

M TIME FROM SET OF SOWN TO RESET OF SOWN IS THE 

SETTLEDOWN DELAY 
5 STOP 



I 



L 



J 
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SEQ OOt? 

IB REflO FROM BOT 

THIS MERSUREnENT IS HROE EXRCTLY RS THE URITE 
HERSUREMENT IN Tl USE THE SRHE RECORD THRT URS 
WRITTEN IN Tl 

1 REUINO TO BOT 

2 fiSSURE TAPE HRS HRD TltlE TO COME TO R COMPLETE STOP 

3 RERD FORURRD 1 RECORD 

U MONITOR BIT 15 OF TC (flCCL) 

S TinE FROn GO TO RCCL IS BOT DELAY 

b STOP 

Tfa READ START 

TH S TEST MEASURES THE SAME DELAY AS IN T2. 

1 WRITE 1 RECORD. THEN BACKSPACE OVER IT. ASSURE TAPE IS STOPPED 
: ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1 

MCNITOR BIT 15 OF TC (ACCL^ 
>* TIME FROM GO TO RESET OF ACCL IS START DELAY 
5 STOP 

T" PERO SHUTDOWN 

THIS TEST MEASURES THE SRME DELRY RS IN T3 

1 WRITE 1 RECORD, THEN BACKSPACE OVER IT. OSSUPE TAPE IS STOPPED 

2 READ FORWARD THE RECORD WRITTEN IN STEP 1 

3 MONITOR FRAME COUNT AND BIT ^ OF DS (SOWN) 

^ TIME FROM FC=RECORD S:ZE (LAST FRAME READ) TO SDWNsl 

IS THE SHUTDOWN TIME 
5 STOP 

TIP READ SETTLEDOWN 

THIS TEST MEASURES THE SAME DELAY AS IN TH 

1 WRITE 1 RECORD. THEN BACKSPACE OVER IT, ASSURE TfiPE »S STOPPED 

READ FORWARD THE RECORD WRITTEN IN STEP 1 
: MONITOR BIT H OF OS (SOWN) 

M TIME FROM SET OF SOWN TO RESET OF SOWN IS THE 
SETTLEDOWN DELAY 

b >rop 
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Til REPD REVERSE STRRT 

THIS TEST MILL HEPSURE THE STRRT OELPY IN THE REVERSE 
DIRECTION 

1 WRITE 1 RECORD, RSSURE TfiPE IS STOPPED 

2 REPO REVERSE THE RECORD WRITTEN IN STEP 1 

3 MONITOR BIT IB OF TC (PCCL) 

^ THE TIME FROM GO TO RESET OF PCCL IS THE STRRT TIME 
B STOP 

T12 REPD REVERSE SHUTDOWN 

THIS TEST WILL MEPSURE THE REPD SHUTDOWN IN THE REVERSE 
DIRECTION 

1 WRITE 1 RECORD, PSSURE TPPE IS STOPPED 

REPD REVERSE THE RECORD WRITTEN IN STEP 1. 
; MONITOR FRPME COUNTER AND BIT H OK DS (SOWN) 
^ TIME FROM FC=RECORD SIZE (LPST FRPME REPD) TO SDWH^l 

IS THE REPD REVERSE SHUTDOWN TIME 
B STOP 



T13 READ REVERSE SETTLEDOWN 

THIS TEST WILL MEASURE THE REPD SETTLEDOWN IN THE REVERSE 
DIRECTION 

1 WRITE 1 RECORD, PSSURE TPPE IS STOPPED 

2 REPD REVERSE THE RECORD WRITTEN IN STEP 1 

3 MONITOR BIT H OF DS (SOWN) 

^ TIME FROM SET OF SOWN TO RESET OF SOWN IS THE 

SETTLEDOWN DELPY 
B STOP 

Tm TURN PROUND OELPY-FORWPRO TO REVERSE 

THIS TEST WILL MEPSURE THE TIME REQUIRED FOR THE TAPE 
TO CHPNGE DIRECTION 

1 LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
: ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
3 MONITOR BIT 7 OF OS (DRY) 

^ WHEN DRY IS ASSERTED (EOR), IMflEOlPTELY ISSUE A 

READ REVERSE OF THPT RECORD 
5 MONITOR BIT IB OF TC (RCCL> 

b TIME FROM 60 OF REPD REVERSE TO RESET OF PCCL IS 

THE TURNPROUND TIME 
7 STOP 
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TIB TURN flROUND DELPY-REUERSE TO FORUPRD 

THIS TEST WILL MERSURE THE TIME RS IN Tm. BUT IN THE 
OPPOSITE DIRECTION 

1 URITE 1 RECORD 

2 ASSURE TRPE IS STOPPED 

3 RERD REV/ERSE 

H MONITOR DRY (BIT 7 OF OS) 

S UHEN DRY = 1. ISSUE R RERD FORURRD 

fc MONITOR RCCL (BIT 15 OF TO 

TIME FROM GO FORWRRD TO RCCL =1 IS THE TURN AROUND TIME 
S STOP 
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S£Q 0020 

GAP nEnSUREtlENTS 

THE PREVIOUS THIRTEEN (13) TESTS HERE MEflSUREHENTS OF LOGIC 
OELPYS PERFORMED BY THE TMOZ OR TU16 IN ORDER TO RLLOU FOR 
PROPER PCCELERPTION RNO DECELLERPT ION OF TPPE PCCORDiNG TO 
THE DESIRED INTEROCORD GPP (.6 INCHES) THIS TEST, HOHEVER, 
WILL HEPSURE THE PHYSICRL SIZE OF THE INTERCORD GPP THRT 
EXISTS ON TPPE PS P RESULT OF THE STPRT/STOP TIMES OF 
THE CPPSTPN ITSELF. BECPUSE THE INTERRCORD GPP IS 
CRERTED BY TUO PCTIONS, THE STRRT OF MOTION PND THE 
STOP OF MOTION IT IS NECESSPRY TO MRKE TWO SEPERRTE 
MERSUREMENTS R THIRD MERSUREMENT, MRDE ON THE FLY, OF 
THE ENTIRE LENGTH OF THE GPP UILL RLSO BE MROE 

Tib GPP SIZE (STOP HRLF) 

THIS TEST WILL MERSURE THE DISTRNCE TRRULED BY THE TRPE 
IN R STOP CYCLE IN OTHER WORDS, THE DISTANCE INTO 
THE IPG 

1 WRITE 1 RECORD 

2 RSSURE TRPE IS STOPPED 

3 ISSUE R RERD RE«;ERSE OVER THE RECORD 

H MONITOR THE FRRME COUNT FOR THE FIRST FRAME READ 'FC = D 
B THE TIME FROM G0=1 TO FC=1 IS THE LENGTH OF THE GAP 

6 STOP 

T17 GRP SIZE (START HRLF i 

THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP 

1 WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TRPE IS STOPPED 

2 ISSUE R RERD FORWRRD 

3 MONITOR FC FOR FC=1 

I* TIME FROM G0=1 TO FC = 1 IS STRRT DISTANCE 
5 STOP 

T20 GAP CI2E ( INTERRECORD) 

THIS TEST WILL MERSURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG THE TIME VRLUE OF THIS TEST SHOULD NOT BE 
EQURL TO fl SUMMATION OF Tib AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERRT I ON CURVES ARE NOT IN 
EFFECT THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF Tib PND T17 

1 WRITE 2 RECORDS 

2 RERD REVERSE OVER THE SECOND RECORD 
i MONITOR DRY (BIT 7 OF DS) 

^ WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

B MONITOR FRAME COUNT 

b TIME FROM G0=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP 

7 STOP 



I 2 
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SEO 0021 

T21 GOP CONSISTENCY 

NOU THAT UE HOVE ESTRBLISHEO THRT THE INTERRCORO 

GRP IS THE PROPER SIZE, LET US OETERHINE THE CONSISTENCY 

OF THE GOP UNDER VfiRlOUS COHtlRNO EXECUTION TIMES 

BY WRITING n SERIES OF RECORDS, ERCH UITH DIFFERENT 

DELAY BETUEEN EXECUTION, UE CPN ESTRBLISH THE CONSISTENCY 

OF THE GRPS BY REROING THESE RECORDS RND MONITORING 

THEIR INTERRECORD GRPS, ON THE FLY 

1 REWIND TRPE TO SOT 

2 WRITE ONE (1) RECORD TO GET TRPE OFF 80^ 

3 WRITE SIXTEEN (16) RECORDS UITH R PROGRESSIVE DELAY 

OF FROM Q TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS 
^ BACKSPACE 16 RECORDS AND ALLOU THE TAPE TO STOP 
^ READ FORUARD (NON-STOP) OVER THESE 16 RECORDS, EACH 

TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 

UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO \ (FC=1) 
t THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 

SHOULD REMAIN CONSISTANT FOR ALL RECORDS 

STOP 

*I»£EE GTIMTBL IN D2TUD LISTING FOR GAP TIMES)** 



T22 PESERUED FOP FUTURE USE***** 
T23 DATA TIME AT 200 BP I 

THIS TEST WILL MEASURE THE TtME REQUIRED TO WPl TE 

ONE (1) INCH OF TAPE AT 200 BP I 

BY URITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (200 FRAMES), DATA RATE 

CAN BE VARIFIED 

1 REWIND TO 80T AND ALLOW TAPE TO STOP 

2 WRITE A RECORD AT 200 BP I 

3 MONITOR 9RY (BIT 7 OF OS) FOR EACH RECORD 

4 THE TIME FROM FC=FC*1 TO DRY WILL BE THE TIME REQUlPEC 
FOR 1 INCH AT THE SELECTED DENSITY 

^ STOP 



T> OAT A TIME AT 556 BP I 

REPEAT STEPS 1 THRU 5 OF T23 AT 656 BP I 

T2B DATA TIME AT 800 BP I. 

REPEAT STEPS 1 THRU 5 AT 800 BP I 



T26 DATA TIME AT 1600 BP I (PE) 

REPEAT STEPS 1 THRU B AT 1600 BP I 

ttTHlS TEST IS NOT EXECUTED IF NPZ ONLY** 
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SEQ 0022 



T27 ERBSE 

THE ERfiSE COMMRND WILL CRUSE ON RREfi OF THE THREE (3) 

NCHES TO BE DC ERASED IN THE FORUfiRD DIRECTION 
THIS TEST UILL ASSURE THAT THE PROPER DISTANCE IS 
ERASED 

1 LEAVE TAPE AT ITS PRESENT POSITION 

2 ISSUE AN ERASE COMMAND 

3 MONITOR DRY (BIT 7 OF DS) 

^ THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO ERASE 3 INCHES OF TAPE AND UiLL 
REFLECT THE DISTANCE DENSITY IS NOT A FACTOR 

S STOP 



T3C TAPE MARK 

THIS TEST IS ALSO A CHECK ON THE THREt (3) INCH GAP 
.JHEN P TAPE MARK IS URITTEN, fl 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT ON TAPE 

1 LEAVE TAPE AT ITS PRESENT POSITION 

Z 'SSUE A WRITE TAPE MARK COMMAND 

3 MONITOR DRY (BIT 7 OF DS) 

M THE TIME FROM GO TO DP"t WILL BE THE TIME 

REQUIRED TO WRITE THE TM RECORD PLUS THE 

3 INCH GAP 
5 STOt' 



I 



I 
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K 

PAGE 



T31 TRPE SPEED FORURRD 

THIS TEST REQUIRES THE USE OF AN 800 BP I SKEW TAPE' 
THE OPERRTOR WILL BE REQUIRED TO nOUNT THE SKEH TRPE 

BEFORE EXECUTING THE TEST THE SKEW TRPE IS THE ONLY 

WRY TO RSSURE THAT TRPE IS flOVING AT THE PROPER SPEED 

BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE 

1 ASSURE TAPE IS STOPPED AT BOT 

2 ISSUE A READ FORWARD (800 BP!. NORMAL) 

3 MONITOR FC FOR FC = 800(10) 
H MONITOR FC FOR FC = 880C(1Q) 

5 TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 

FOR TAPE TO TRAVEL 10 INCHES 
b DIVIDE THE TIME FOR 10 INCHES BY 10 

THE RESULT IS AN AVERAGE SPEED FOR 1 INCH 

STOP 

T3: TAPE SPEED REVERSE 

THIS TEST IS THE SAME AS TEST 31, 3UT SPEED IS 
MEASURED IN THE REVERSE DIRECTION 

1 ADVANCE TAPE OFF OF BOT 

2 ISSUE A READ REVERSE 

3 REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION 
M STOP 
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OZTliDD Pll 27-0CT-77 13 17 TfiBLE OF CONTENTS 

1929 STORTING INSTRUCTIONS 

196S riRCRO DEFINITIONS 

1989 REGISTER ASSIGNMENTS 

2018 TM02/TUlb REGISTER BITS 

2210 TIME SPECIFICRTION TR8LE 

22H7 GRP TIME SPECIFICRTION TRBLE 

2271 TEST HERDER POINTERS 

2371 PROGRRtl SUBROUTINES 

2372 TYPE SUBROUTINE 

240W OCTRL TO RSCII I TYPE ROUTINE 

2H^\ OCTRL TO DECIMAL I TYPE ROUTINE 

TYPE SPECIFIED TIMES ROUTINE 

2605 TYPE GAP TIMES SUBROUTINE 

263b ASCII TO OCTAL CONVERT SUBROUTINE 

2558 PUBLISH SUBROUTINE 

2599 INPUT SUBROUTINE 

2bH5 ERROR SERVICE ROUTINES 

271 »» SCOPE SUBROUTINE 

2??h TIMER SUBROUTINES 

290H DELAY SUBROUTINES 

2929 DIVIDE SUBROUTINE 

2965 DRIVE SUBROUTINES 

3m3 PROGRAM INITIALIZATION 

3Mm START OF TESTS 

H27S PROGRAM MESSAGES 



L 2 
77 13. H2 



SCO 0024 



t 
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MPCYll 2Qimb) 27-OCT 



n 

•77 



2 

U 



M2 PRGE 1 



SEQ 0026 



^ 
& 
6 

^ 

8 
9 
10 
11 

12 

!3 
W 
15 
lb 

r 

IS 
19 
20 
21 
22 
23 
2M 
25 
26 
27 
28 
29 
30 
31 
32 
33 
2H 
35 
36 
37 
3S 
39 

140 

m 

U3 

M5 
M6 

^7 
48 
H9 
50 
51 
52 
53 
5H 
55 
56 



nnCRO SLCTRL 
..LISTING CONTROL 
NLIST SEQ.nD.nC.CND 
LIST ME 
ENPBL flBS 

ENOn SLCTRL 
tIflCRO tSTINST 
LORDING PND STARTING PROCEEOURE 

LORD PROGRRn USING THE RBS LORDER 
LORD RDORESS 200 
SET SUITCH REGISTER OPTIONS 
STRRT 

STRCK POINTER IS SET RT llOO 

ENDM tSTINST 

nnCRO fCPREG 
..DEFINITIONS AND REGISTER flSSlGNflENTS 
..GEN£RRL REGISTER RSSIGNHENTS 
RO=y.O 

RZ='/.Z 
RUsJiU 

PC = 5'.7 
R10=*/.0 
Rll=Xl 
R12=5J2 
R 1 3=553 

RmsJcu 

R15=-/.B 



.REGISTER ADDRESSES 



PSU= 
SLR: 
PiRQs 
UBRERK: 
TKS= 
TKB= 
TPS* 
TPB= 



177776 
17777H 
177772 
177770 
177560 
177562 
17756M 
177666 



.;PROCESSER STRTUS UORD 
..STRCK LiniT REGISTER ( 1 1/MO. 1 1/H5) 
;. PROGRRn INTERRUPT REQ (11/H5) 
..niCRO-BRERK REGISTER (11/H5) 
.;KEYBORRD CSR 

;. KEYBOARD DRTR BUFFER REGISTER 
..TELEPRINTER CSR 

..TELEPRINTER DRTR BUFFER REGISTER 



. ENOn SCPREG 
nRCRO SFPREGS 
FLOATING POINT REGISTERS 
AC 0=510 
AC1=5{1 
AC2='/.2 
RC3=5{3 
ACM = 5{M 
AC5=5'.5 

ENOn 4FPREGS 
MACRO SSUOPT 
SUITCH REGISTER SUITCH ASSIGNMENTS 
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57 
B8 
59 
60 
b1 
62 
b3 

65 
66 
67 
68 
69 
70 
71 

I it 

73 
7H 
75 
76 
77 
78 
79 
80 
81 
82 
83 

814 

85 
86 
87 
88 
89 
90 
91 
92 
93 
9H 
95 

96 > 

9: 

98 

99 
100 
101 
102 
103 
lOH 
105 
106 
107 
108 
109 
110 
111 
112 



nnCYll 30(10H6) 27 



N 

'OCT-77 



2 

13 142 



PPGE 1-1 



SCO 0026 



SUI5: 

sum= 

SU13: 
SU12= 
SUlls 
SUlO: 
SU9: 



100000 
OHOOOO 
020000 
010000 
OOHOOO 
002000 
001000 



ENOn SSUOPT 
. MflCRO RCGBOX 
NAME -nODR ESS 



,HflLT ON ERROR SUITCH 
;LOOP SUBTEST SUITCH 
, INHIBIT ITERATIONS SUITCH 
; INHIBIT PASS PflRflnCTERS SUITCH 
; INHIBIT ERROR TYPEOUT SUITCH 
,RIN6 BELL ON ERROR SUITCH 
;;L00P ON ERROR SUITCH 



NRHE/ ADDRESS, B15. Bm, Bl 3. B12/ Bl 1, BIO. B09, BOB, B07, B06, BOS. BOH, B03 



I I I I I I I I I I I I I I I I I 
•BlS*Bm<Bl3<Bl2!Bll!B10!B09!B08!B07!B06!B05!B0i(!B03!B02!B01>B00! 
• I I I I I I I I I I I I I I I I 



15 m 13 12 11 10 9 8 



1 



ENOn REQBOX 
mCRO 4PSUBITS 
STATUS REGISTER (PSU) BIT 
C = l 

y=2 

N=1G 
T=20 

PRTY7=3H0 
PRTY6=300 
PRTY5=2H0 
PRTYH=200 
Kn= 000000 
StlzOHOOOO 

un=moooo 

PKHsOOOOOO 

psn-otoooo 
puns03oooo 

REG=a0H000 

ENOn tPSUBlTS 
MACRO SCPVEC 
VECTOR ADDRESSES 

ERRVEC=H 

RESVEC=10 

TBITVECsm 

TRTVEC=m 

BPTVEC = m 

I0TVEC=20 

PFVEC=2»4 

EMTVEC=30 

TRAPVEC=3H 

TKVEC= 60 



ASSIGNMENTS 
,;C BIT 
,;V BIT 
..1 BIT 
,;N BIT 

'T* BIT 

PRIORITY 

PRIORITY 

PRIORITY 
,;PRIORITY 

KERNEL nOOE 

SUPERVISORY 
;,USER MODE 

PREVIOUS KERNEL MODE 

PREVIOUS SUPERVISORY 

PREVIOUS USER MODE 

SELECT P1G-R15 



LEVEL 
LEVEL 
LEVEL 
LEVEL 



nODE 



MODE 



; ; ADDRESS 
, , ADDRESS 
, , ADDRESS 
, , ADDRESS 
, , ADDRESS 
ADDRESS 
ADDRESS 
, , ADDRESS 
ADDRESS 
, , ADDRESS 



OF ERROR VECTOR 

OF RESERVED INST TRAP VECTOR 

OF "T- BIT TRAP VECTOR 

OF 'TRACE* TRAP VECTOR 

OF 'BREAKPOINT" TRAP VECTOR 

OF lOT TRAP VECTOR 

OF POUER FAIL TRAP VECTOR 

OF EMT VECTOR 

OF TRAP VECTOR 

OF TTY KEYBOARD INT VECTOR 
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117 
1 1 J 


TPVEC=64 




PPRVECa 


im 


lid 


PIRVEC= 


2^0 


1 1 D 


FPEVECs 


2*4 ^ 


117 


nnVECs250 


1 1 fi 






1 1 Q 


rNDM 

. cnun 


w T VL^ 


1 tn 

1 ZU 






1 '91 




Iff f 3 1 T 


1 


1 PRs 


1 77^16 

Iff ff W 1 H 


197 


t r V t ^ 


200 


1 7U 


LPLULe 


200 

mWW 


1 

1 ^3 




€1 PRFGS 






4TCREGS 


1 ^ • 


TCST= 


1 777un 

if f W~ W 


1 4>W 


TCCM= 


1773142 


1 ''9 


TCUC = 


1 7731414 


1 in 

1 wU 


TCBRs 


1773H6 




TCDT= 


177350 


1 7? 


TCVEC= 


2m 


1 77 


TCLVL= 


21*0 


1 7U 






1 71^ 


ENDM 


ilCREGS 


1 7fe 


MACRO 


tSTKPTR 


1 77 


, / IN TIfiL STPCK 


POINTER 


1 38 

1 wO 


STKPTRs 


p 


1 79 


ENDM 


tSTKPTR 




MPCRO 


iRFREGS 


1 U 1 
111 


RFOCS= 


177H60 


1U9 


RFUC = 


177'462 


1 ~ w 


RFCMP= 


177H6H 


lUU 


RFOPR= 


177H66 




RFOPEs 


177H70 


1 U(> 
1 ID 


RFODBs 


177H72 


1 U7 


RFMP: 


177H7H 


1 UR 


RFPDS= 


177H76 


1 U9 
117 


RFVECs 


20H 


1 

1 3U 


RFLVL= 


2>40 


1 CI 
1 S 1 


. ENOn 


SRFREGS 


1 


. nPCRO 


SRPHREG 


1 C 7 
1 9 J 


RPCS1= 


172000 


1 RU 
1 3"» 


RPUCs 


172002 


1 CC 


RPBPs 


17200H 


1 Ct. 
1 3D 


RPDST: 


1 72006 


1 17 
13r 


RPCS2= 


172010 


1 RR 
1 3a 


RPOSls 


172012 


1 C9 
1 37 


RPERls 


17201'* 


icn 


RPRS= 


172016 


1 C>1 
lO 1 


RPLfls 


172020 


1 4.9 


RPDB= 


172022 


163 


RpnRs 


17202H 


16«4 


RPDT= 


172026 


166 


RPSN= 


172030 


166 


RHOF = 


172032 


167 


RPCfl= 


l7203^ 


168 


RPCC = 


172036 



H2 PPGE 1-2 



SEQ 0027 



, .PDDRESS OF TTY PRINTER INTERRUPT VECTOR 

.,R0DRESS OF nP/HF PPRITY ERROR VECTOR 

;,POORESS OF PIRQ VECTOR 

,;PDDRESS OF FLOPTING POINT INT VECTOR 

,;PDORESS OF HEn MGHT ERROR TRPP VECTOR 



;;POORESS OF LINE PRINTER STPTUS REG 
,;RNO PRINTER BUFFER REGISTER 

INTERRUPT VECTOR 

PRIORITY LEVEL ^ 



.,PODRESS OF DECTPPE STPTUS REG 

,,PDDRESS OF OECTPPE COHMPNO REG 

,;PDDRESS OF DECTPPE UORD COUNT REG 

..PDDRESS OF DECTPPE BUS PDDRESS REG 

,,PDDRESS OF DECTPPE DPTP REGISTER 

ADDRESS OF DECTPPE INTERRUPT VECTOR 
,,PNO INTERRUPT LEVEL (6) 



iNlTIPL STPCK POINTER 



. .PODRESS OF DCS REGISTER 
PDDRESS OF UC REGISTER 
PDDRESS OF CriP REGISTER 

;; PDDRESS OF DPR REGISTER 
PDDRESS OF OAC REGISTER 
PDDRESS OF DPTP BUFFER REGISTER 

..PDDRESS OF HP REGISTER 

..PDDRESS OF AOS REGISTER 
INTERRUPT VECTOR PDDRESS 

..PNO PRIORITY LEVEL 



..PDDRESS OF CSl REGISTER 

.; PDDRESS OF UORD COUNT REGISTER 

..PDDRESS OD BUS PDDRESS REGISTER 

..PDDRESS OF DESIRED SECTOR/TRPCK REG 

..PDDRESS OF CS2 REGISTER 

..PDDRESS OF DSl REGISTER 

..PDDRESS OF ERl REGISTER 

..PDDRESS OF ATTENTION SUOnORY PEG 

..PDDRESS OF LOOK PHERD REGISTER 

PDDRESS OF DPTP BUFFER REGISTER 

..PDDRESS OF nPIN. REGISTER 

..PDDRESS OF ORIVE TYPE REGISTER 

..PDDRESS OF SERIRL « REGISTER 

..ADDRESS OF FORHPT REGISTER 

..PDDRESS OF DESIRED CYL ADDRESS REG. 

..ADDRESS OF CURRENT CYLINDER ADDRESS PEG 
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nncYii 30(l0^b) 



169 


RPER2= 


170 


RPER3: 


171 


RPECls 


172 


RPEC2= 


173 


ENDn 


17H 


nncRO 


175 


RSCSls 


\7b 


RSUC = 


177 


RSBR: 


178 


RSDfl= 


179 


DSCS2= 


180 


RSDS= 


181 


RSER= 


182 


RSflS= 


183 


RSLPs 


1S^ 


RSDB: 


1S5 


RSHR: 


186 


RSDTs 


187 


RSWEC= 


188 


RSLVL= 


189 


ENOn 


190 


MflCRO 


191 




192 


KMPCSR- 


193 


KWPCSB 


19H 


KWPCTR 


195 


KWPWEC 


196 


KWPLVL 


197 


ENOn 


198 




199 


. nflCRO 


200 


RKOS= 


201 


RKER= 


202 


RKCS= 


203 


RKHC= 


20>4 


RKBfl: 


205 


RKDfl= 


206 


RKf1R= 


207 


RKOB: 


208 


RKVECs 


209 


RKLWL= 


210 




211 


ENDM 


212 


. nflCRO 


213 


RPOS= 


2m 


RPERs 


215 


RPCS= 


216 


RPWC = 


217 


RPBfls 


218 


RPCOs 


219 


RPDO= 


220 


DBUCr - 


221 


RPLVL= 


222 


ENOn 


223 


22M 


MflCPO 



c 

27-0CT-77 



3 

13 ^2 PRGE 1-3 



SEQ 0028 



1720H0 

1720H2 

I720mt 

1720H6 

SRPHREG 

fRSREGS 

1720H0 

1720H2 

1720HH 

1720H6 

172050 

172052 

17205H 

172066 

172060 

172062 

172064 

172066 

20H 

240 

fRSREGS 
SKUPREGS 

1726H0 
172542 
172544 
0 

300 

SKUPREGS 

tRKREGS 

177400 
177402 
177404 
177406 
177410 
177412 
177414 
177416 
000220 
000240 

tRKREGS 

fRPREuS 

176710 

176712 

176714 

176716 

176720 

176722 

176724 

254 

240 

SRPREGS 
fRHREGS 



,,PD0RESS OF ER2 REGISTER 

ADDRESS OF ER3 REGISTER 

.^flODRESS OF ECC POSITION REGISTER 

;;nDDRESS OF ECC PATTERN REGISTER 



;.P0DRESS OF CONTROL REGISTER 

;;PDDRESS OF UORD COUNT REGISTER 
ADDRESS OF BUS ADDRESS REGISTER 
ADDRESS OF DISK ADDRESS REGISTER 
ADDRESS 00 CS2 REGISTER 

;; ADDRESS OF DRIVE STATUS REGISTER 
ADDRESS OF ERROR REGISTER 
ADDRESS OD ATTENTION SUmRRY REGISTER 

;; ADDRESS OF LOOK AHEAD REGISTER 
ADDRESS OD DATA BUFFER REGISTER 
ADDRESS OF MAINTENANCE REGISTER 
ADDRESS OF DRIVE TYPE REGISTER 

/.INTERRUPT VECTOR ADDRESS 
PRIORITY LEVEL OH INTERRUPT 



;; DRIVE STATUS REGISTER 

ERROR REGISTER 
;;COHTROL STATUS REGISTER 
,;UORD COUNT REGISTER 

CURRENT BUS ADDRESS REGISTER 
;,DISK REGISTER REGISTER 
,,nAINTENANCE REGISTER 
,.OATA BUFFER REGISTER 
,,ADOPESS OF INTERRUPT VECTOR 

PRIORITY LEVEL (5) 



ADDRESS OF DRIVE STATUS REGISTER 

ERROR REGISTER 

CONTROL STATUS REGISTER 
.,MORD COUNT REGISTER 
,.BUS ADDRESS REGISTER 
,,CYLIHDER ADDRESS REGISTER 
,;DISK ADDRESS REGISTER 

VECTOR ADDRESS 

PRIORITY LEVEL (b) 
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SEQ 0029 



22B 
226 
227 
228 
229 
230 
231 
232 
233 
23«4 
235 
236 
237 
238 
239 
2H0 

Z**2 
243 
2144 
245 
246 
247 
248 
249 
2B0 
2Bt 
262 
263 
254 
255 
266 
257 
268 
259 
260 
261 

263 
2b4 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 



,.RH11 REGISTERS 

RHDCS=172040 
RHUC=172042 
RHCnns 172044 
RHDPR= 172046 
RHDflE=l72060 

RHDBR=172052 
RHttfls 172054 
RHRDS= 172066 
RHVEC= 300 
RHLVL= PRTY6 



; ADDRESS OF DISK CONTROL V STATUS REG 
.PDDRESS OF UORD COUNT REGISTER 
.RDORESS OF CURRENT HEnORY AOOR REG 
.ADDRESS OF DISK ADDRESS REGISTER 
.ADDRESS OF DISK ADDRESS EXTENSION 
;AND ERROR REGISTER. 
.ADDRESS OF DISK DATA BUFFER REGISTER 

ADDRESS OF HAINTLNANCE REGISTER 
..-ADDRESS OF DISK SECTOR REGISTER 
.; ADDRESS OF RHll INTERRUPT VECTOR 
..AND PRIORITY LEVEL (6) 



ENOn 
MACRO 



SRHREGS 
{RHBITS 



RHll DISK CONTROL & STATUS REGISTER (RHDCS) 



G0=1 






.GO 


NOOP=0 




^ 


.NO-OPERATION 


WRITE=2 




/ 


.URITE 


READ= 


4 


/ 


;READ 


UCHK: 


6 


/ 


.URITE CHECK 


XXXX= 


10 






A16= 


20 


/ 


.EXTENDED ADDRESS BIT 16 


R17= 


40 


/ 


.EXTENDED ADDRESS Bl^ 17 


IE = 


100 


0 


. INTERRUPT ENABLE 


RDY= 


200 


f 


. READY 


RHCLR= 


400 


t 


; CLEAR 


MA= 


1000 


f 


; MAINTENANCE MODE 


ULO= 


2000 




.URITE LOCKOUT ERROR 


DOF= 


4000 


/ 


;DiSK OVERFLOU 


nxF= 


10000 


/ 


; MISSED TRANSFER ERROR 


UCE = 


20000 


/ 


.URITE CHECK ERROR 


DER = 


40000 


/ 


.DATA ERROR 


ERR= 


100000 


/ 


, ERROR 



DISK 



ADDRESS EXTENSION 
DRL: 200 
CMAINHs HOO 
PUR= 2000 
ILLACC= 40000 
CLKERR= 100000 



ERROR REGISTER (RHDAE) 

..DATA REQUEST LATE 
..CMA INCREMENT INHIBIT 
..POWER FAULT 
.. ILLEGAL ACCESS 
;. CLOCK ERROR 



MAINTENANCE REGISTER (RHMR) 



MC = 


1 


0 


.MAINTENANCE CLOCK 


MU= 


2 


r 


; MAINTENANCE UINDOU 


Ml = 


4 


f 


.MAINTENANCE INDEX 


MRDs 


10 


0 


.MAIN READ DATA 


SEP = 


20 


/ 


.SECTOR PULSE 


A00C0N= 


40 


/ 


.ADDRESS CONFIRMED 


LSR = 


100 


/ 


.LOAD SHIFT REGISTER 


UR = 


200 


r 


. UR 1 TE 


RD= 


400 


/ 


.READ 


MUD= 


1000 


f 


.MAINTENANCE URITE DATA 


LUir 


2000 


/ 


.LAST UORD + I 


STR = 


4000 


/ 


.STROBE BUFFER 


RUCLK= 


10000 




.READ OR URITE CLOCK 
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SEQ 0030 



281 




282 


ENOn fRHBlTS 


283 


nflCRO tllTREGS 


2SM 


,,Tnil nflGNETIC TRPE REGISTERS 


28S 


nTS= 172620 


28b 


flTCs 172622 


287 


fITBRCs 172624 


288 


tlTCnPs 17262b 


289 


nTD= 172630 


290 


nTRD= 172632 


291 


nTVEC= 22M 


292 


MTLVLs 2M0 


293 


ENDM tMTREGS 


29'4 


nflCRO snneiTs 


296 


,,r\in HGflT REGISTER SSRO BIT fl 


29b 


ENnn=i 


297 


VPO=0 


298 


\}P\=2 


299 


UP2=M 


300 


UP3=b 


301 


VPM=10 


302 


VP5=12 


303 


vpb=m 


30«4 


VP7=16 


306 


DS=20 


306 


IS=00 


307 


uPG=mo 


308 


SPG=MO 


309 


KPG=000 


310 


IC=200 


311 


Dn=MOO 


312 


TE=IOOO 


313 


OSTFsHOOO 


3m 


nnTFs 10000 


316 


flVfl: 20000 


31b 


PLfi=H0000 


317 


NRR: 100000 


31S 


,,SR1 BIT flSSlGNtlENTS 


319 


3Z0 


Sl = 10 


321 


S2=20 




SH=HO 


323 


Sb=bO 


32H 


S8=100 


326 


SH1=370 


326 


Sn2:3b0 


327 


SnH=3M0 


328 


Snb=320 


329 


Sf18=300 


330 


00=0 


331 


D1=M000 


332 


02=10000 


333 


0ni=l7M000 


33«» 


002=170000 


335 


DP0=000 


336 


DR1=M00 



, . INTERRUPT VECTOR 
LEVEL 5 



-.ENfiBLE MEMORY MANAGEMENT 

VIRTUAL' PAGE 0 
,,ETC 



, 'D' SPACE PAGE 

, ' I • SPACE PRGE 

;USER PAGE 

, SUPERVISOR PAGE 

, KERNEL PAGE 

, INSTRUCTION COMPLETE 

; DESTINATION MODE 

.TRAP ENABLE 

,OST ABORT FLAG 

, MEMORY MANAGEMENT TRAP 

, ACCESS VIOLATION ABORT 

.PAGE LENGTH ABORT FLAG 

.NON-PESIDENT ABORT 



FLAG 









F 


3 


DZTuo-0 inoz 


ORIUE FUNCTION TItlER 


tIfiCYll 


30(10>46) 27-0CT-77 


13. <(2 PPGE 1-6 


D2TU00 SriL 


21-0CT-77 09 5M 








337 






DR2=1000 




338 






DR3=m00 




339 






OR Ms 2000 




3«»0 






0R5s2>t00 




3«»t 






0R6=3000 




3H2 






OR7s3HO0 




3«»3 










3'*«» 




. , SR3 6 


IT PSSIGNnENTS 




3H5 






UDE = 1 


/;USER D SPfiCE ENPBLE 


Z»»b 






SDE = 2 


/; SUPERVISOR 0 SPPCE ENPBLE 


3>*7 






KOEsH 


//KERNEL 0 SPPCE ENPBLE 


3'*8 










3**? 










350 






ENOn SMtlBITS 




351 






npCRO snnREGS 




35; 




,,l1EnORY hflNPGEHENT REGISTER PDDRESS ASSIGNMENTS 


353 






5R0= 1 ffbfZ 


onnorcc ac MrH mi^mt oriticTCo con 


35H 








/ / aK I 


355 








II II It It CB^ 


356 






SR3=172516 


PDDRESS OF MEh nGOT REGISTER SR3 


357 






ENOn tnnREGS 




358 










359 






DHLKU sUnnKtua 




360 






U 1 rUKU- 1 r r oUU 


annprcc iiccp * i * porc nrcrpiPTftp 


361 






U 1 rUK I - 1 r r OUZ 


PFR 1 CTFPC 


362 






U 1 rUK*- 1 f r out 




363 






U 1 rUK J- 1 r r DUO 




36H 






U 1 r UKt- If r O 1 U 




365 






UiPDR5=t776l2 




366 






UIPDR6S 1776m 




367 






1 1 1 ono 7— 4 77d c 




368 










369 






UUrUnU" 1 • r D£U 




370 






UUr UK l-lr ftm 




371 






imp no 9- 1 77<>9U 
UUrUK^- 1 f r D^l 




372 






UDPOR 3= 177626 




373 






UDPDRH=177630 




37»» 






UDPDR5= 177632 




375 






UDP0R6=17763H 




37b 






UDP0R7r 177636 




177 
378 






UIPflRG=l77fcH0 


..PDDRESS OF USEP I' PPGE PDDRESS 


379 






UIPflRl=1776M2 


. .REGISTERS 


380 






UIP0R2=1776HH 




381 






IJIPflR3=177bH6 




382 






UIPPRH= 177650 




383 






UIPPR5= 177652 




38H 






UlPfiR6sl77b5M 










UIPRR7= 177666 




386 
387 






U0PfiR0=l77660 


..PDDRESS OF USEP "D" PPGE PDDRESS 


388 






UDPRRl=1776b2 


. REGISTERS 


339 






U0PPR2=17766H 




390 






U0PnR3=177b66 




391 






UDPfiR«» = l77670 




392 






UDPflP5=l77b72 





02TUD-D TflOZ DRIUE FUNCTION TIMER 
D2TUDD SHL 21-0CT-77 09 5H 



393 

39^ 

395 

39b 

397 

298 

399 

HOO 

HOI 

HQZ 

1*03 

HOH 

HOS 

HOb 

M0~ 

HQS 

109 

tlO 

111 

H12 

H13 

ms 

H16 
H17 

ms 

H19 
H20 
H21 
H22 
H23 
H2H 
H2S 
H26 
H27 
H28 
H29 
H30 
HJl 

"43: 

H3H 
H35 
H3b 
H37 
138 
H39 
i|HO 
HH\ 
HHZ 
HH3 
MHH 
4<fS 
HMb 
Hi|7 

HH8 



G 3 

MflCYll 30(10Hb) 27-0CT-77 13 H2 POGE 1-7 



SEQ 0032 



UDPnRb: 
UDPflR?! 
ENOn 

npCRO 

SIPDRO: 
SIPDRls 
SIPDR2S 
SIPDR3: 
SIPDRM: 
SIP0R5= 
SiPDRb: 
SIPDR7: 



\77b7H 
\77b7b 

tunnREGS 
isnnRCGS 

172200 
172202 
17220H 
17220b 
172210 
172212 
1722m 
17221b 



..flOORESS OF 
DESCRIPTOR 



SUPERVISOR 
REGISTERS 



I PPGE 



SDPDRO: 
SDPORl: 
SDP0R2: 
S0PDR3S 
SDPDRH: 
SOPORS: 
SOPDRb: 
SDPDR7! 



172220 
172222 
17222H 
17222b 
172230 
172232 
17223U 
17223b 



,,PDORESS OF 
DESCRIPTOR 



SUPERVISOR 
REGISTERS 



'0' PPGE 



SIPPRO: 
SIPPR1 = 
SIPPR2: 
SIPPR3: 
SIPPR**- 
SIPPRG- 
SIPPRb: 
SIPPR7: 



1722U0 
:1722H2 
:1722«»H 
:1722Mb 
: 172250 
=172252 
■ 17225U 
:17225b 



PDORESS 
POOR ESS 



OF SUPERVI 
REGISTERS 



SOR • I • PAGE 



SOPPRO: 
SDPRRl: 
SDPPR2: 
S0PPR3: 
SDPPRH: 
SOP PR 5' 
SDPPRb: 
SDPPR7I 



:1722bO 
•\711bZ 

:l722b«« 
:1722bb 

=172270 
=172272 
:17227H 
:17227b 



PDORESS OP SUPERVISOR 'D' PPGE 
PDDRtSS PEG! STEPS 



ENOn 
tIPCRO 
KIPDR0= 
KIPDRl: 
KIPDR2: 
KIP0R3= 
K)PDRH= 
KIP0R6: 
KIPDRb: 
KIPDR7= 

KDPDRO: 

KDPORl: 
KDP0R2: 
KDP0R3: 
KDPDPH: 



tSrWREGS 
SKfinftEGS 

=172300 
= 172302 
=17230H 

17230b 
=172310 
= 172312 
= l723m 

17231b 

=172320 
=172322 
=17232M 
=l7232b 
=172330 



PDORESS OF ' I " PPGE 

DESCRIPTOR FEGISTEPS 



POORESSES OF (>EPNEL "P" PPGE 
DESCRIPTOR REGISTERS 



OZTUO-u Tn02 DRIVE FUNCTION TIHER 
DZTUOD SML 21-0CT-77 09 

1451 

^5^ 

HSb 
H57 
HS8 
H5? 
tbO 

Hbl 
Hb3 

HbS 
H6(b 
Hb7 
HbS 
Hb9 
H70 
H71 
H72 
H73 
H7H 
H75 
H7b 
H77 
H78 
H79 
H80 
H81 
H82 

^S^ 
H8& 
>4S6 

HS- 
^S£ 

"♦QC 

H92 
H93 
H9H 
^96 
H96 
U97 
U98 
H99 
600 
601 
602 
603 
60H 



H 

1RCYU 30(10H6) 27-0CT-77 



KDPDR6M72332 
KDPDR63l7233>t 
KDPDR7=l7233b 



3 

U 



H2 PPGE 1-8 



SCO 0033 



KIPPRQ: 

KIPRRls 
KIPRR2S 
KiPnR3s 

KlPfiR^= 

KlPnR6= 

KipnRb= 

KIPPR7S 

KDPRRO= 
KDPflRl= 
KDPPR2S 
KDPnR3: 
KOPPRM= 
KDPRR5= 
K0PPR6= 
KDPRR7= 



1723»»0 
1723H2 

1723H6 
172360 
172362 
17236H 
172366 

172360 
172362 
t7236^ 
172366 
172370 
172372 
172374 
172376 



..POORESSES OF KERNEL 
,,PDRESS REGISTERS 



PPGE 



.PDDRESSES OF KERNEL 0' 
.PDDRESS REGISTERS 



PPGE 



ENDM SKflMREGS 
nPCRO iPDRBITS 
ACCESS CONTROL FiELD DEFINITIONS 



( IN POP) 



NRO=0 




NON-RES (DENT PBOPT RLL PEFS 


RD0T=1 




,TRPP ON READ/ PBOPT ON UPtTE 


PD0=2 




,,RERD.PBORT ON UP ITE 


NR3=3 




UNUSED RBORT RLL 


RUT = H 




. , TRRP ON RERD & UP ITE 


RUTW=6 




,,RERD, TRPP ON URITE 


RU=6 




, ,REPD & URITE 


NR7=7 




/ABORT PLL 


E0=10 




EXPANSION DIRECTION eiT 


UP=00 




EXPAND UP 


DUN: 10 




, , EXPAND DOUN 


U=100 




'U' BIT 


R=200 




. -A" BIT 


ENDtl 


SPDR8 1 TS 




. tlflCRO 


tTRPPS 





TRAPS 



IS 



, THIS ROUTINE DECODES A TPRP INSTRUCTION AND JUMPS TO THE PPPPOPPlPTE 
, SUBROUTINE 

(SP). -(SP) 

12, (SP) ./FORM ADDRESS CD TPPP INSTRUCTION 

a(SP).<SP» -GET TRAP INSTRUCTION 

(SP) 
IS 

ITRPTPB-TRRP. tSP) 

i(SP)*,PC .,"JUnP' TO PPPPOPPlPTE POUTtME 

SGET 



MOV 
SUB 
tlOV 
TSTB 

Bni 

POD 

nov 

JMP 



.TABLE OF ROUTINES CALLED BY TRPP INSTPUuT IONS 
TPPTRB 

NLIST 



02TUD-D Tt102 DRIVE FUNCTION TIMER 
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BOB 
BOb 
BO" 
BOS 
B09 
BIO 
BU 
B12 

6i: 

Bl>* 
BIB 
Bib 

B17 
B15 
B!? 

b:c 

Bll 

b:: 

62U 
B2B 
B2& 
B27 
B28 
B29 
530 
B31 
B32 
B33 
B3i« 
63B 
B3b 
637 
B38 
639 
BMO 
BHl 

B<4: 

B«4- 

S^t> 

B4S 
6H9 
BBO 
BBl 
662 
663 
66»« 
BBB 
666 
567 
668 
569 
660 



QQ :0 
LIST 

nncRo SET n,Bi 

IF B <B1> 
SSET n, 'P, TRflP^ QQ , 

IFF 

SSET n,BL <TRflPf QQ >, 
ENOC 
NLIST 

QQ = QQ *2 

LIST 

SET 

4SET fl,B<C-D 



QQ 

QQ 



ENOn 
flflCRO 
NLIST 
fi=C 
LIST 
UORO 
ENOn 
ENOn 



B 

4SET 
STROPS 



,,0=TROP+D (C) 



MRCRO 4SC0P1 
SCOPE (EtlT) SERVICE ROUTINE 

THIS ROUTINE STORES PC OF LOST SUBTEST SUCCESSFULLY COnPLETED 
IN y.\ AND RESETS THE STACK PTR (TO INITIAL SETTING) 



SCOPE nov 


(SP).Rl 


,,SAVE LAST PC IN Rt 


nov 


»STKPTR,SP 


.,SET INITIAL STACK POINTER 


BIT 


»>tOO, dSUR 


..LOAD P0Pll/>«6 niCRG BREAK 


BEQ 


♦ 10 




novB 


dSUR,dlUBREAK 


.,LOAD fllCRO BREAK REG WITH 


jnp 


(Rn 


,.G0 START NEXT SUB TEST 


ENDU 


SSCOPl 




nACRO 


tSC0P3 A 




, SCOPE (EOT) 


SERVICE ROUTINE 





,THIS ROUTINE ALLOUS A SUBTEST TO 
, BEGINNING THE NEXT SUBTEST ROUT 
STORES PC OF LAST TEST COMPLETED 
SCOPE BIT IBlTlH^dSUR 
SCOPEC 

SCOPES nov »STKPTR,SP 
»H00. dSUR 
♦ 10 

dSUR.dfUBREAK 

(Rl) 
(?C) + 



SCOPEC 
SCOPED 



SCOPE 
THIS 



BIT 
BEQ 

nov 

BIT 
BEQ 

novB 
jnp 

DEC 
•A- 
BNE 

nov 
nov 

BR 

ENOn 
nACRO 
(TRAP) 
POUTINE 



SCOPES 

•'A', SCOPED 

(SP)/R1 

SCOPEB 

SSC0P3 

SSCOPE A 
SERVICE ROUTINE 
ALLOUS THE SUBTEST 



BE ITERATED "A" TIHES BEFORE 
INE ALSO RESETS STACK POINTER AND 
IN Rl 

CONTINUOUSLY LOOP TEST"? 

SET INITIAL STACK POINTER 
LOAD P0P11/H6 niCRO 6REAl( REG'' 

LOAD niCRO BREAK REG UITH SRO-7 
RETURN 

DECREnENT ITERATION COUNT 
CONTAINS SUB TEST ITERATION COUNT 

RESET SUBTEST ITERATION COUNT 
GET ADDRESS OF NEXT TEST 



TO BS CONTINUOUSLY LC^PEC 'TEPATED 



DZTUD-0 TH02 


DRIVE FUNCTION TIMER 


nOCYll 


30(10U6) 


J 3 

27-0CT-77 13 H2 


D2TU0D Sni 


21-0CT-77 09 6H 




Sbl 




.,(0R NOT ITERPTED) BEFORE BEGINN 


562 






NOr 




563 






MAD 










MAC 

NUr 




Bb5 






TCT 


^mc ooci f 


566 








1 1 


b67 






Q 1 T 
D 1 1 


flCIJQ "^CIID 


568 






DLU 


« c 

11 


569 






HAW 

nuv 


2kM rO^ / CD \ 


5"0 






DT 1 
K 1 1 




571 




1 9 


F\ 0 
LLK 


nttr DO c f r" 








R 1 T 
D 1 1 


•CU1U DCUD 


5': 






DCU 










nuv 


I^ftCi^DDl ^ ^Li /cot 


6"E 






DT 1 










R 1 T 










Rrn 










MO)/ 




579 






liOU 

1 IV V 


(CD) Aarpr 


580 






BT 1 


/ 


581 






TMP 




582 








7C 


583 








( CD 1 . f CP > 


58H 






1 IV V 


V \ 3r / / ^ ar / / 


585 






nou 


($Pl4- Jt^rPRI 


586 








7C 


587 






MOV 




588 






DEC 




689 






BNE 


2f 


590 






tlOV 


iR,ISCPBLK4-2 


591 






BR 


5f 


592 






ENDM 


4SC0PE 


593 






nncRO 


SPOUER 


59H 






FAIL SUBROUTINE 


595 






MOV 


tPUP.dtPFVEC 


596 






HALT 




59'' 










598 






UP SERVICE ROUTINE 






PUP 


noi' 


«STKPTR,SP 


600 






nov 


« POUER«dfPFVEC . 


bOl 










602 






CLR 


(PC)* '; 


603 




X 9 


. UORD 


0 


60H 






INC 


IS 


605 






BNE 


2$ 


606 






TYPE 




607 






PFOIL 




608 






TYPE 




609 






MRS 




610 






TYPE 




611 






SCRLF 




612 






JflP 


diSTRRT 


613 




PFfllL 


flSCIZ 


<15><12>'P0HER Ffl 


61H 






EVEN 




615 










616 






ENOn 


tPOUER 



SEQ 00J5 



IF ERROR FLPG (S SET 



.LORD ERROR RETURN flOORESS 



CHECK INHIBIT iTERfiTION SWITCH 



..SET SUBTEST ITERfiTlON COUNT 
/DEFAULT TO 'fl' ITERATIONS 0 

.DECREMENT SUBTEST ITERATION COUNT 

.SET SUBTEST ITERATION COUNT 



SET POWER FAIL VECTOR TO PUP 



SET STACK PTR 



J 



DZTUO-D Tn02 DRIVE FUNCTION TIMER 
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SEQ 0036 



617 MACRO fDONE 

618 ,,THIS ROUTINE IS ENTERED BT THL COMPLETION OF THE TEST 
61? DONE CLR fitPSU CLEAR STATUS UORD 

620 MOV iSTKPTR^SP ;/SET STACK PTR 

621 RESET 

622 TYPE 

623 BELL 

b2H MOV am2,R0 ,,CET MONITOR HOOK FOR ACTll/DDP 

625 BEQ OONEl BRANCH IF (H2)::0 

626 LOGICAL JSR PC, (RO) RETURN TO ACTl 1 /OOP VIA ^2 
62"" DONEl NOP 

628 NOP 

b29 . NOP 

620 JMP ilSTART , , GO TO START OF TEST 

6^1 ENDM tDONE 

6:2 

633 "fiCRO 5SflVE 

b3't ROUTINE TO SAVE REGISTERS ON THE STACK 

635 SAVE nOV %5'-(SP) //R5 IS SAVED AT 12(SP) 

636 MOV JcM^-CSP) ./R"* IS SAVED AT lO(SP) 

637 MOV '/.Z,-i%P) ,;R3 IS SAVED AT 6(SP) 

638 MOV 5'.2,-(SP) /;R2 IS SAVED AT ^(SP) 

639 MOV '/A,-(S?) ,.R1 IS SAVED AT 2(SP) 
bHO MOV -/.O -(SP) ;;R0 IS SAVED AT (SP) 

bm MOV 16(SP),-(SP) ,;PUSH RETURN PSU ON THE STACK 

6H2 MOV 16(SP),-(SP) ,,PUSH RETURN PC ON THE STACK 

6H3 RTI 
6>»i« 

6HS ENDM tSAVE 

b^6 MACRO ^RESTORE 

b^7 ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 

bi«8 RESTORE MOV (SP)*, Ib(SP) 

6H9 MOV (SP)*, 16(SP) 

650 MOV (SP)*/*/«0 

661 MOV (SP)*,5Jl 

6B2 nOV (SP)*,'42 

653 MOV (SP)*, '/.S 

MOV (SF )♦,*-{«♦ 

b55 nOV (SP»*,X5 

b5b RTI RETURN 

657 

bS8 ENDM {RESTORE 
659 

bbO MACRO SSHIFT 

bbl ROUTINE TO SHIFT DATA ON THE STACK 

bb2 ..CALL MOV DATA, -(SP) PUSH DATA ONTO STACK 

bb3 " SHIFT 

ZZu SHIFT COUNT ,, SHIFT COUNT 4/-=LEFT/R I6HT 

bfcc SHIFT. MOV a(SP),-(SP) ,; CHECK SHIFT COUNT 4 OR - 

Llm BMI 2S BRANCH IF - (RIGHT) 

IS ASL 6(SP) ,, SHIFT DATA LEFT 

tb8 DEC (SP) ,, DECREMENT SHIFT COUNT 

bb9 BNE IS 
670 

671 2% ASR 6(SP) SHIFT DATA R IGHT 

1^2 INC (SP) INCREMENT SHIFT COUNT 



02TUD-D Tn02 ORIUE FUNCTION TIHER 
D2TU0D SriL 21 -OCT- 77 09 5^ 



MRCYll 30(lO>*b) 27-OCT 



L 

•77 



3 

13 tZ 



PRGE 1-12 



SEQ 0037 



673 




BNE 


zs 




67H 


35 


TST 


(SP)4 


//POP SHIFT COUNT OFF THE STRCK 


6'5 




ROD 


12/ (SP) 


//RDJUST RETURN PC 


676 




RTI 




//RETURN TO CRLLER 


67-' 










67S 




ENOn 


SSHIFT 




679 




nRCRO 


»SETTBIT 




680 




nov 


dtPSU. -(SP) 


//GET CURRENT PSU 


681 




BIS 


IT/ (SP) 


/.PUSH 'T' BIT ON THE STRCK 


682 




nov 


ff ♦6,-(SP) 


;/ RETURN PC ON THE STACK 


6S3 




RTI 




//SET 'T* BIT THEN EXECUTE FOLLOWING INST 


68H 




ENDM 


SSETTBIT 




bSS 










6S6 




nRCRO 


LOPDR flCF,ED.PLF.P0R 


bS" 




MOV 


»'PLF'»256 -H00+'E0'*'RCF',dfP0R' ./SET 'PDR'='RCF" 


68S 




ENOn 


LDPDR 




6S9 




nRCRO 


tTYPE 




o90 


ROUTINE TO TYPE ASCII tlESSRGE. 


nESSRGE nUST TERniNRTE MITH R 0 BYTE 


691 


.;THE ROUTINE UILL INSERT R NUriBER OF NULL CHRRRCTERS RFTER R LINE FEED 


692 


. , CRLL 


TYPE 




,;R TRRP TYPE INSTRUCTION 


693 




nESROR 




//HESROR IS FIRST RDDRESS OF RSCIZ STRING 


69U 










695 


, . TRGS 


USED BY 


THE TYPE ROUTINE 


BELOU 


696 




SHT=11 




,/HORlZONTRL TRB 


697 


5NULL 


BYTE 


C 


;; CONTAINS NULL CHRRRCTER 


698 


*F ILL 


BYTE 


2 


//CONTRINS « OF FILLER CHRRRCTERS 


699 


STPFLG 


BYTE 


0 


//CONTRINS TELEPRINTER RVRILRBLE FLRG 


700 








,,0/377 = RVRIL/NOT flVRIL 


701 


STKFL6 


BYTE 


0 


//CONTAINS KEYBOARD AVAILABLE FLAG 


702 


*TPS 


UORD 


177561 


//ADDRESS OF TLEPR INTER STATUS REGISTER 


703 


5TPB 


WORD 


177566 


//'ADDRESS OF TELEPRINTER DATA BUFFER 


70U 


SCHflftCNT BYTE 


0 


//CONTAINS » OF CHRPS TYPED 


705 


SCNTRLO 


BYTE 


0 


./CONTRINS CONTROL 0 CHAR (IF TYPED) 


706 


SCRLF 


RSCIZ 


<16><12> 




707 




EVEN 






708 










709 


TYPE 


nov 


RO,-(SP) 


//SRVE RG 


710 




nov 


d2(SP).R0 


..GET nESSRGE ADDRESS 


■'11 




ROD 


• 2/2(SP) 


..ADJUST RETURN PC 


'12 




CLRB 


fCNTRLO 




7i: 
7m 


TYPEl 


TSTB 


SCNTRLO 


; /BRANCH IF CONTROL 0( UflSN'T TYPED 


715 




BEQ 


TYPE2 




716 


TCRLF 


TYPE,fCRLF 


/.TYPE <CR><LF^ 


717 




TSTB 


ROSU 




718 




BPL 


TYPE3 




719 




CLR 


RDSU 




720 




RTS 


PC 




721 


TYPE2 


novB 


(RO)*, -(SP) 


//PUSH CHARACTER TO BE TYPED ONTO STRCK 


722 




BNE 


TYPEM 


/;BRRNCH IF NOT THE TERniNRTOR 


723 




TST 


(SP)* 


//POP TERniNRTOR CHRP OFF THE STACK 


72'* 


TYPE 3 


nov 


(SP)*/RO 


./RESTORE RO 


725 




RTI 




//RETURN TO CALLEP 


726 










727 


TYPEH 


cnPB 


«4HT, (SP) 


,/ BRANCH IF HORIZONTAL TRB 'HT^ 


728 




BEQ 


95 





ED" 'PLF' BLO 



D2TUD-0 Tn02 
D2TU00 SOL 

729 
730 
731 
732 
733 
734 
735 
73fe 
737 
738 
739 
7U0 
7m 

7»»3 

r»m 

747 
7H8 
7«»9 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
7fe0 
761 
762 
763 
764 
765 
766 
767 
76S 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
731 
782 
783 
784 
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JSR 


r ^ r 3 « 


, , TYPE CHARACTER 




1% 


CtlPB 


•12/ (SP)+ 


//CHECK IF CHARACTER UAS A LINE 


FEED 


BNE 


TYPEl 


//BRANCH IF NOT LINE FEED 






nou 


tNULL, - (SP ) 


//GET • OF FILLERS REQUIRED AND 


FILLER 








/ / CHARACTER 






DECS 


KSP) 


//DECREMENT FILLERS REQ COUNT 




BLT 


35 


//BRANCH IF NO MORE FILLERS ARE 


REQUIRED 




JSR 


PC/ 55 


;/TYPE FILLER CHARACTER 






BR 


4f 








TSTB 


altTPS 


//UAIT FOR OUTPUT DEVICE 






BPL 


-4 








CMPB 


1117, dItCNTRLO 


//CHECK IF CONTROL 0 UAS TYPED 






6EQ 


65 


//STOP TYPING MESSAGE IF 0 UAS 


TYPED 




nouB 


2(SP), d5TP6 


,, OUTPUT CHARACTER 




6S 


CMPB 


ilB, 2(SP) 


//BRANCH IF NOT <CR> 






BNE 


75 


//CLEAR CHARACTERS TYPED COUNT 






CLR6 


5CHARCNT 






BR 


85 






75 


CHPB 


•12/2(SP) 


//BRANCH IF <LF> OR 'NULL' 






BGE 


85 








INC6 


5CHARCNT 


//INCREMENT CHARACTER TYPED COUNT 


85 


RTS 


PC 






. , MOR 1 


20NTAL TAB <HT> PROCESSER 






95 


novB 


•40. (SP) 


.;LOAD 'SPACE' 




105 


JSR 


PC, 55 


,,TYPE 'SPACE' 






BITB 


«7,5CHARCNT 


,/TYPE SPACES UNTIL A MULTIPLE 






BNE 


105 


;,0F 8 CHARACTERS HAVE BEEN TYPED 




TSTB 


(SP)* 


//POP SPACE 






BR 


TYPEl 


; .GET NEXT rHARACTER 






ENOn 


5TYPE 








MACRO 


5TYPEF 






ROUTINE TO TYPE flESSflGE FOLLOUING TYPE CALL CALL 




/ * 


TYPEF 




//CALL 






BR 


15 


./BRANCH AROUND ASCIZ MESSAGE 




f / 


ASCIZ 


•MESSAGE' 








EVEN 








TYPEF 


nou 


(SP)/ 15 








ADO 


• 2/15 


/;FORM MESSAGE ADDRESS 




15 


TYPE 
UORD 


0 


//CONTAINS MESSAGE ADDRESS 






RTI 










ENOn 


5TYPEF 








MACRO 


TfPEC 








JSR 


PC/ TYPEC 








. ENOn 


TYPEC 








flACR 


FORMAT 








JSR 


PC, FORMAT 


/,G0 TO FORMAT ROUTINE 






ENOn 


FORMAT 








MACRO 


5CNV16 






ROUTINE TO CONCERT 16 BIT OCTAL TO ASCII 




.,CALL 


MOV 


DATA, R2 


./PUT DATA TO BE CONVERTED IN R2 



SFQ 0038 



02TU0-0 Tn02 ORIWE FUNCTION TIMER 
02TU00 SriL 21-0CT-77 09 54 

785 
78b 
787 
788 
789 
790 
791 
792 
793 
79H 
795 
796 
797 
798 
799 
800 
' 801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
32H 
825 
826 

8 It 
<•< 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 
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CNV16 

..LEAVES CONVERTED RSC 1 1 IN TABLE BEGINNING AT 'DIGITS 



SEQ 0039 



CNV16 



IS- 



2% 



35 



SAVE 




nov 


iDIGITS.R4 


CLR 


R3 


nov 


R2/R1 


ASL 


R2 


ROL 


R3 


nov 


• 6.R0 


BR 


2i 


ASL 


R2 


ROL 


R3 


DEC 


Rl 


BNE 


2i 


HAW 

nuv 


S 3/ R 1 


novB 


DIGTflB(3), (4)+ 




D 7 


DEC 


RO 


BNE 


2S 


RESTORE 




RTI 




ENOn 


SCSV16 


MACRO 


tCNVlS 



, . ADDRESS UHERE ASC 1 1 VALUES ARE STORED 
,,UORKING & INDEX REGISTER 
. . SAVE 

, .FIRST DIGIT TO R3 

, /DIGIT COUNT 
..TYPE FIRST DIGIT 



DIGIT SHIFT COUNT 
,.L0n0 DIGIT INTO MESSAGE 
..CLEAR INDEX 
;,DEC DIGIT COUNT 



..RETURN TO CALLER 



..ROUTINE TO CONVERT 16 BIT OCTAL VIRTUAL ADDRESS TO 18 BIT ASCII 

PHYSICAL ADDRESS. 
..CALL: MOV ADDRESS+2.RI 
CNV18 

LEAVES CONVERTED ASCII IN TABLE BEGINNING AT 'DIGITS' 
CNV18 



10$ 



SAVE 








MOV 


II0I6ITS.R4 


/ 


.GET ADDRESS OF DIGIT TABLE 


CLR 


R3 






SUB 


• 2.R1 


/ 


.ADJUST ADDRESS 


MOV 


RUR5 


f 


.SAVE 


NOV 


R5.R2 






TST 


MMAVA 


/ 


.CHECK IF MEM MGMT IS AVAILABLE 


BEQ 


IS 




.BRANCH IF NOT AVAILABLE 


BIC 


»17777.R2 


/ 


.CLEAR ALL BUT PAR SELECTOR BITS 


ASL 


R2 


f 


.SHIFT BITS 15-13 


ROL 


R2 


t 


.LEFT TO 


ROL 


R2 




.3-1 


POL 


R2 






ASL 


R2 




.GET CONTENTS OF PAR REGISTER 


NOV 


dPARTnB(2).Rl 


/ 


BIT 


•Un.dtERRPSU 


r 


•CHECK IF UAS IN USER MODE 


BEQ 


101 


t 


.BRANCH IF NOT IN USER MODE 


MOV 


dUPARTAB(2).Rl 




.GET CONTENTS OF USER PAR REG 


nov 


S6.R0 


/ 


.SET SHIFT COUNTER 


ASL 


Rl 




.SHIFT PAR BITS IN Rl<ll-0> 


ROL 


R3 


/ 


.TO R3<l-0> & Rl<15-6> 


SOB 


RO. -4 




CLEAR ADDRESS PAR SELECTOR B'TS 


BIC 


fil60000.R5 
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SEQ 0040 



8)4 \ 




ROD 


R5> Rl 


/'/FORn 18 BIT PHYSiCRL RDDRESS 


o~ ^ 




RDC 




/ / IN Rl l R3 


fiU 1 


1 9 




F\ 1 


..SHIFT IS/ld BIT RDDRESS 






rol 


R3 


, ; 1 PLACE LEFT 






flOV 


RQ 


, »SET DIGIT COUNTER 


S4(i 




BR 


3$ 


//GO FORM PbCM VRLUE OF nSD 


G~ * 










OHO 






R1 


SHIFT NEXT DIGIT 






ROL 


R3 


//3 PLRCES LEFT INTO R3 






DEC 


Rg 




SKI 






2% 


















MOV 


• 3/ R6 


//SET DIGIT SHIFT COUNT 


8S4 




novB 


0IGTR6(R3), iKH)* 


,/LORD DIGIT INTO DIGIT TRBLE 


85B 




CLR 


P3 


;;CLERR INDEX & LRST DIGIT 


8Sb 




DEC 


RO 


;;OECREnENT DIGIT COUNT 


857 




BNE 


2S 


//LOOP UNTIL b DIGITS DONE 


858 




RESTORE 




/-/RESTORE REGISTERS 


869 




RTI 




//RETURN TO CRLLER 



860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
87S 
879 
380 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
8% 



PRRTRB KIPRRO 

KIPRRl 

KIPRR2 

KIPRR3 

KIPRR4 

KiPRR5 

KIPRR6 
UPRRTRB UIPRRO 

UIPRRl 

UIPRR2 

UIPRR3 

UIPRR4 

UIPRR6 

UIPRR6 

UIPRR7 

ENOn tCNV18 

. MRCRO »CNV48 
ROUTINE TO CONVERT 48 OCTRL DIGITS TO ASCII 
//TABLE STARTING RT OICBUF. CALL 

' CNV48- 



LEAVES CONVERTED DATA IN 



IS 



nov 


ADDRESS/ XFERS 


//LOAD ADDRESS OF OCTAL DIGITS 


CNV48 






SAVE 






MOV 


• 9. /Rl 


/, CLEAR DIGIT BUFFER 


nov 


•OlGBUFtlS /RO 




CLR 


-(RO) 




DEC 


Rl 




BNE 


IS 




nov 


XFERS/R5 


//GET ADDRESS CONTAINING XFER COUNT 


MOV 


»XFERS>2,R4 




nov 


(R5)>/ (R4)+ 


//MOVE XFER COUNT TO BUFFER AT XFERS+2 


MOV 


(R5)+/ (R4)> 


THREE WORDS 


nov 


(R6H, (RM)* 




nov 


«16 /Rl 


//GET OCTAL DIGIT COUNT 
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897 


24 


nov 


I3/R2 


/ , GET BINPRY BITS/OCTPL 


DIGIT COUNT 


898 


3S 


nov 


IXFERS^Z/Rt 


./GET PDDRESS OF OCTPL 


DRTR 


899 




CUP 


(R>4 )♦/ (RH )^ 


. , POD H (POINT TO LSD) 




900 




PSL 


(Rl4) 


SHIFT 3 B ITS 




901 




ROL 


-(R<4) 






902 




ROL 


-(Rit) 






903 




ROLB 


(RO) 


, ;SHIFT BIT INTO DIGIT 


BUFFER 


90H 




DEC 


R2 


,,CECREnENT BIT COUNT 




905 




BNE 


31 






906 




BISB 


92bO/ (RO)* 


/ y FORM PSC 1 1 VPLUE 




907 




DEC 


Rl 


DECREMENT OCTPL DIGIT 


COUNT 


908 




BNE 


1% 






909 




RESTORE 








910 




RTI 




RETURN TO CPLLER 




911 
912 


wDlGIT 


BUFFER 








913 


XFERS 


UORD 


0 


,,CONTPINS PDDRESS OF XFER COUNT 


9m 




UORO 


0 


,xCONTPINS DEV XFER COUriT <H7-32> 


915 




UORD 


0 


y.CONTRlNS DEV XFER COUNT <3l-16) 


91b 




klORD 


0 


,,CONTPINS DEV XFER COUNT <15-00> 


917 












918 


DIGBUF 


BLKU 


9 






919 




ENOn 


SCNVH8 






920 












921 




nPCRO 


PSPTPGS 






922 


.-LIST 


OF EQUPTES FOR GET ROUTINE 




923 




VECs 


0 


-,COSTRNT FOR GETTING P VECTOR PDDRESS 


92H 




UNITS 


1 


.^CONSTRNT FOR GETTING 


P UNIT « 


925 




WC= 


2 


CONSTANT FOR GETTING 


UORD COUNT 


92b 




UBP= 


3 


CONSTANT FOR GETTING 


URITE BUFFER PODRES 


927 




EP 


= 4 


CONSTANT FOR GETTING 


EP BITS 


923 




RBP= 


5 


CONSTANT FOR GETTING 


RERD BUFFER ADORES 


929 




PPTs 


b 


,,CONSTRNT FOR GETTING 


PATTERN 8 


930 




POR: 


7 


CONSTANT FOR GETTING 




931 




WRTLOCs 


10 


CONSTANT FOR GETTING 


URITE LOC 


932 




CONSTs 


11 


CONSTANT FOR GETTING 


CONSTANT 


933 




CYL = 


12 


CONSTANT FOR GETTING 


CYLINDER « 


93H 




SURF = 


13 


CONSTAT FOR GETTING 


SURFACE t 


935 




SECT= 


IH 


CONSTANT FOR GETTING 


SECTOR S 


93b 




CPLOC= 


15 


CONSTANT FOR GETTING 


STARTING ADDRESS 


93 r 








,,0F CP TESTS 




938 




DEUNRri: 


lb 


-,CONSTPNT FOR GETTING 


OCTAL ID OF OEViCE 


939 
















ENOn 


PSPTPGS 






9m 












9H2 




nPCRo 


GETPNS 






9M3 




JSP 


PC, GETPNS 


,G0 GET USER RESPONSE 




9H>t 




ENOn 


GETPNS 






9H6 












9H6 




MPCRO 


9GETPNS 






9*7 


ROUTINE TO GET USER 1 CHAR 


RESPONSE TO PROGRRM REQUEST 


9H8 


CPLLED BY GCTPNS tIflCRO OR 


JSR PC, GETPNS 




9««9 


GETPNS 


NOP 








950 




nov 


rSP), -(SP) 


,,PUSH RETURN PC DOUN ON STPCK 


961 




CLR 


2(SP) 


,.CLEPR PNSHER LOCATION 


962 




TSTB 


d«TKS 


.,URIT FOR RESPONSE 
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SEQ OOHZ 



9S3 




BPL 


If 




95H 




CtIP 


•216' dITKD 


//CHECK CARRIAGE RETURN 


955 




BNE 


2t 


//BRANCH IF NOT CARRIAGE RETURN 


95b 




TYPE 






957 




SCRLF 




/;ECHO CARRIAGE RETURN LINE FEED 


958 




RTS 


PC 


//EXIT BACK TO CALLER 


969 


2S 


CUP 


•377/ dITPB 


/ / CHECK RUBOUT 


9b0 




BNE 


31 


;; BRANCH IF NOT RUBOUT 


961 




MOV 


»' /dITPB 


; ; ECHO BACK SLASH ( ) 


962 




BR 


If 


//AND UAIT FOR NEXT RESPONSE 


963 


3S 


nov 


^•TK8,d«TP6 


;;ECHO TYPED CHAR 


9bH 




HOW 


«ITKo/ Z(Sr ) 


//PUT CHHRnClLK ON THE STHLK 


965 




B IC 


•ZOO/ Z(sr ) 


CTO 1 O DnO 1 TV D 1 T 

/ / STR 1 r PHR 1 TY BIT 


966 




BR 


If 


/ / HND WHIT FOR NEXT RESPONSE 


96S 




ENOM 


fGETANS 




969 










970 




riRCRO 


fRECO 




971 


. ,ROUTl 


NE TO GET TYPED ASCII DATA AND CONVERT TO OCTAL 


972 


..LERVES THE OCTAL DflTfl IN THE 


ADDRESS FOLLOUING THE CALL/ (BITS 0-1 


AT T 

973 


/ / PND B 


ITS 16- 


17 IN ADDRESS Hb. 




97H 


, . CALL 


RECO 




/ ; (A TRAP TYPE INST ) 


ATP 

97b 




. UORD 


0 


//CONTAINS RETURNED DATA 


A^£ 

976 




CONTINUE 


;/ RETURNS HERE 


ATT 

977 


RECO 


CLR 


-(SP) 




ATO 

978 




CLR 


d«H6 




OTO 

979 


15 


TSTB 


d« TKS 


/;UAIT FOR USER RESPONSE 


Aon 

980 




BPL 


-^ 




981 




nOVB 


d« TKB,-(SP) 


. / GET ASC 1 1 CHARACTER 


982 




CLR 


d« TKS 


//CLEAR 'READY' 


983 




cnPB 


•177, (SP) 


,/ CHECK IF RUBOUT 


98H 




BNE 


2f 


//BRANCH IF NOT RUBOUT 


AOP 

985 




novB 


»' /H5 




986 




TYPE 






987 








//ECHO BACK SLASH 


AAA 

988 




TST 


(SP)* 


/.POP LAST TYPED CHAR OFF THE STACK 


AAA 

989 




ROR 


^•><6 


./SHIFT LAST TYPED CHARACTER OUT 


990 




ROR 


(SP) 




A A • 

99; 




ASR 


dm6 




99- 




ROR 


(SP) 




99Z 




ASR 


dlHb 




99H 




ROR 


(SP) 








BR 


If 


/-/AND UAlT FOR NEXT CHAR 


996 










997 


2S 


CMPB 


•26, (SP) 


/; CHECK IF CONTROL U 


998 




BNE 


20f 


//BRANCH IF NOT CONTROL U 


999 




CMP 


(3P^*, (SP'* 


, , POP CNTRL U CHAP & PREV DATA OFF 



EH 
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TYPE 



D2TUD-D Tn02 
D2TUDD SriL 

1009 
1010 
1011 
1012 
1013 
1011 
1016 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
102»* 
102B 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
103H 
1036 
1036 
1037 
1038 
1039 
10H0 

lom 

10H2 
1GH3 
10H4 
10H6 
10U6 
lOI? 
lOMS 
10H9 
1060 
1061 
1062 
1063 
106H 
1066 
1066 
1067 
1068 
1069 
1060 
1061 
1062 
1063 
l06it 



DRIVE FUNCTION TIMER 
21-0CT-77 09 



tIPCYll 30(1016) 27 



F 

■OCT-77 



1 

13 •♦2 



PPGE 9 



20f- 



3S 



US 



tCRlF 
BR 

CMPB 

BNE 

TYPE 

SCRlF 

TST 

nov 

BIC 
POD 
RTI 

novB 

TYPE 
>4i 
BIC 
flSL 
ROL 
PSL 
ROL 
flSL 
ROL 
BIS 
BR 
UORD 



. RECO 

«16, (SP) 
3f 



(SP) + 

(SP)*.a(SP) 

m7777H,ai'46 
«2, (SP) 



,,G0 GET INPUT DRTfl 

CHECK IF CRRRIflGE RETURN 
BRANCH IF NOT n CflRRinGE RETURN 



,,POP CflRRIflGE RETURN OFF THE STOCK 
,;PUT DflTO IN flODREESS FOLLOWING CRLL 
..CLEAR UNUSED BITS 



(SP).m 



S177770, (SP) 
2(SP) 

am6 

2(SP) 

am6 

2(SP) 

am6 

(SP)*. 'SP> 

It 

0 



..ECHO CHflRflCTER 

..SAVE ONLY 3 HSBS 

..SHIFT LAST CHARACTER OVER 

..THREE PLACES 



.. INSET OCTAL CHAR 
,.G0 UAIT FOR NEXT CHAR 

CONTAINS CHARACTER TO BE TYPED 



ENDM SRECO 



MACRO SAVLDR 
JSR PC. SAVLDR 
ENDM SAVLDR 
MACRO SSAVLDR 
..ROUTINE TO SAVE ABS LOADER 
..CALLED BY SAVLDR MACRO OR JSR 
SAVLDR NOP 



GO SAVE LOADER 



PC. SAVLDR 



MOV 



IS 



SP.Rl 
ADO 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
RTS 



m.Ri 

RI.SLDRl 
I1M0.R2 
»SL0R1*2.R3 
(RD*. (R3) + 
R2 
It 
PC 



. ;GET LOADER'S STACK PTR 

,;FIRST ADDRESS OF LOflDEP 
.;SAVE FOR RESTORE ROUTINE 
..UORD COUNT 

WHERE LOADER IS TC BE STORED 
STORE LOADER 



. ENDM SSAVLDR 
MACRO RESLDR 
JSR PC. RESLDR 
ENDM RESLDR 
. MACRO SRESLDR 
..ROUTINE TO RESTORE LOADER 
•CALLED BY RESLDR MACRO OR 
RESLDR NOP 

MOV SL0R1.R6 



RETURN 



•RESTORE ABSOLUTE LOPDEP 



JSR PC, RESLDR 

.,6ET FIRST PODRESS 
, , TO BE RESTORED 



OF WHERE LOPDEP 



D2TUD-D Tn02 
D2TUDD Sni 

lObS 

1066 

1067 

1068 

106? 

1070 

1071 

1072 

1073 

lO"'^ 

10^5 

10"6 

1077 

10-3 

10-? 

lOSC 

lOol 

1052 

1083 

108«4 

108S 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109H 

1095 

'096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

MOH 

llOS 

110b 

1107 

1108 

1109 

1110 

nil 

1112 
1113 
111<* 
1116 
1116 
1117 
1118 
1119 
1120 
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13 



H2 



PAGE 



9-1 



SCO 00M5 



l!k 



nov 
tlou 

tlOV 

DEC 

BNE 

TYPE 

SLDRtI 

HPLT 



iSLDRU2,RU 

imO.R2 

(RH)*, (R5)* 

R2 

If 



..ADDRESS UHERE LORDER IS STORED 
.,UORD COUNT 
RESTORE 



SLDRl 
SLDRM 



= *300 
ASCIZ 
EUEN 

ENDM tRESLOR 



FIRST RDDRESS 
;,SRVE 300 LOCATIONS 
LOADER IS RESTORED' <15><12> 



tlrtCRO tCPCHK 

,THE BELOW ROJTINE RSCERTfllNS WHICH CP & 
.NiNG ON AND SETS AN INDICATOR IN OPT CP 
CPCHK 



OPT CP 



IS 



KUll 
MS 



nou 


«RTI.dtERRVEC*2 


nov 


»3.R0 


SEC 




TST 


atPlRQ 


SBC 


RO 


SEC 




TSTB 


dtPSW^l 


SBC 


RO 


CLR 


ill77700 


ASL 


RO 


nou 


RO. (PC)* 


WORD 


0 


..EVEN 


BYTE 0=11/06 


..ODD BYTE 200=f1Eri 


SEC 




TST 


dfSRO 


6CS 


IS 


BIS6 


«200.0PT CP+l 


now 


IRTI,dfRESVEC*2 


CLR 


R2 


SEC 




ASH 


R2.R2 


BCS 


2S 


BIS 


HEISOPT.OPT CP 


CLP 


dtERRVEC*2 


CLR 


aiPESVEC4-2 


ENDn 


SCPCHK 


nncpo 


SKUll 


a TO START CITHER THE K 


KUll-L 


IF AVAILABLE 


MOV 


IRTl,dtERRVEC«2 


now 


•60 . (PC)4^ 


WORD 


0 


SEV 




BIT 


«lOO'dlLKS 



CP OPTIONS THE PROGRAM IS RUN- 
ACCORDINGLY 
SET UP ERROR TRAP TO RETURN 



RO: 

PO: 



IF 
(F 



n/>45 
W/HO 



..R0=1 IF 11/20 

..R0=0 IF 11/06 

SHIFT INDICATOR 
..SET CP INDICATOR 
.; CONTAINS OPTION & CP INDICATORS 
2= 1 1/20. H= 1 1 /HO. 6= 1 1 /HS 
nGMT. 100=EIS 

..CHECK IF nin MGnT IS AVAILABLE 



.SET 
.SET 



HEM HGnT 
RESERVED 



AVAIL INDICATOR 
INSTRUCTION VECTOR 



EIS 



WILL TRAP IF 11/MO WITHOUT 
BRANCH IF NO EIS AVAILABLE 
SET EIS AVAIL INDICATOR 
RESTORE ERROR TRAP TO HALT ON TRAP 



SET ERROR TRAP VECTOR 

SET TICK COUNTER 

CONTAINS CLOCK TICK COUNT 

SET V BIT IN PSW 

CHECK IF KWII-L IS A^jAiLABLE I 
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\\2Z 

\\z: 
n> 

1125 

\\z- 

1 128 
n29 

1 1 :o 

1 1:: 
11" 

1 1 

: 1 ~i 
1 1 

n:9 
imo 

11H2 

n««3 

11>48 

1t«»9 
11B0 
1161 
1162 
1163 
116H 
1166 
116b 
1167 
I16E 
116? 
I tbO 
llbl 

116: 

1162 
WbH 
1166 
1166 
1167 
1168 
1169 
1170 
1171 

iir: 
ir3 

117H 
1176 
1176 
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SEQ OO^b 



IS 
6S 

ftZ%, aiLKVEC 
»300,dlLKVEC*2 
RlOO.dlLKS 
6t 



IT IS ENRBLEO 
.,G0 TO KUn-P START IF NOT flUfllLOBLE 
,,BRPNCH IF PREVIOUSLY ENPGLEO 
,,SET INTERRUPT VECTOR 

PRIORITY LEVEL 6 ON INTERRUPT 
,,ENRBLE INTERRUPT 
,,G0 TO END OF ROUTINE 



,,SET 'U' BIT IN PSW 

«100.aiKUPCSR ..CHECK IF KUll-P IS PUPlLflBLE & 

6S ..IF IT IS ENPBLED 
6S 

l2t.dlKUPUEC ..SET INTERRUPT VECTOR 

•300,ilKHPVEC*2 ..SET PRIORITY LEVEL = 6 ON INTERRUPT 

iim.aiKUPCSR ..SET IE. LINE FREQ. PNO MODE 1 
6t 

INTERRUPT SERVICE ROUTINE 

RO. -(SP> .". SPVE RO ON THE STPCK 

R2. -(SP) ..SAVE R2 ON THE STPCK 

m ..DECREMENT 1 SECOND COUNTER 

3S 

•SECS+l.PO 

«-0,R2 -PUT PSCII VPLUE FOR 0 IN R2 

160 .*4f ..RESET COUNT 

(RO) INCREMENT LSD SECONDS COUNT 

«72. (RO) ..LSD = 9'' 

3S 

R2. (RO) ..RESET LSD = 0 

-(RO) ;. INCREMENT MSD SECONDS COUNT 

166. (RO) . .nSD = 6*^ 

3S 

R2, (PO) , .RESET MSD = 0 
-(RO).-(PO) 

-(RO) INCREMENT LSD MINUTES COUNT 

«72. (RO) ..LSD = 9'' 

3t 

R2. (RO) ..RESET LSD = 0 

-(RO) . INCPEMENT MSD MINUTES COUNT 

166. (RO) '.MSD = b"^ 

ZS 

R2. (RO) ..RESET MSD = 0 
-(RO). -(RO) 

-(RO) ..INCREMENT LSD HOURS 

«6*4. (RO) . .LSD = 

Zi 

R2. (RO) ..RESET LSD = 0 

-(RO) ..INCREMENT MSD HOURS 

•63. (RO) ..MSD HOURS = 3"» 
3S 

R2. (RO) ..RESET MSD HOURS TO Q 

(SP)+.R2 ..RESTORE R2 

(SP>*.RO RESTORE PO 
..RETURN 
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SEQ 0047 



1177 

irs 
ir? 

IISO 
1181 
1182 
1183 
118H 
118B 
nSb 
118^ 

nss 
lis? 

1 1?C 

ir-: 
I r-T 
: 

1195 
119b 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
120^ 
1205 
120b 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
121M 

i:i5 

I21t 
1217 
121S 
1219 
1220 
1221 
1222 
1223 
\22H 
MIS 
1226 
1227 
1228 
1229 
1230 
1231 
1232 



5S CLR d»ERRWEC^2 

ENOn iKUll 

nnCRO fKUPDRV 
, ROUTINE TO START KHll-P REAL TIME CLOCK CALL 
JSR PC, KUPDRV 

, CALLER MUST LOAD FOLLOUING PARAMETERS INTO A TABLE STRUCTURED AS SHOUN BELOU 



, KUPCTR UORD 0 

, KUPCSB . UORD 0 

, KUPRET UORD 0 
, KUCSR UORD 0 

,AND LEAVE RO POINTING TO 



KUPCTR 



COUNTER VALUE 
BUFFER 

RETURN PC UHEN DONE 
;,CONTOLT STATUS REGISTER 





tKUPREGS 








NOP 










nov 


Rl, -(SP) 


,,SAVE Rl ON THE 


STACK 




nov 


KUPCSR-Rl 


,<GET ADDRESS OF 


CSR 




ADD 


»b,Rl 


,,FORn ADDRESS OF 


KUPCTR 




nov 


(R0) + , -(Rn 


,,LOAD CTR 






nov 


(RO)'*'. -(Rl ) 


,,LOAD CSB 






nov 


(SP)*/R1 


RESTORE Rl 






nov 


(RO)*, (PC)* 


,,LOAD RETURN PC 


ON INTERRUPT 


KUPRET 


. UORD 


0 








nov 


(RO),i(PC)* 


,,LOAD COnnANO 




KUPCSR 


UORD 


0 








RTS 


PC 






KUPINT. 


NOP 










JSR 


PC, a KUPPET 








RTI 










ENOn 


tKUPDRV 








nACRO 


SLPDRV 







ROUTINE TO PRINT ON LPll LINE FRINTEP CALL 
JSR PCLPDRV 

, CALLER MUST LOAD THE FOLLOUING LP PARAMETERS INTO A TABLE STRUCTERED 
AS SHOWN BELOU 

''lPBA- WORD 0 CONTAINS FIRST ADDRESS OF DATA TO BE 

:, PRINTED 

,,LPUC UORD 0 ,, CONTAINS » OF CHARACTERS /LINE 

,i.PPET UORD 0 .CONTAINS RETURN ADDRESS UHEN DONE 

,,AND LEAVE RO POINTING TO THE FIRST ADCPE^S OF THE TABLE (LPBfl) 

SLPREGS 



LP DRV NOP 

nov 

ADD 

nov 
nov 
nov 

LPRET UORD 



LPS, LPB 
12, LPB 
(RO)*,LPADR 
(RO)+,LPCNT 
(RO)*, (PC)* 
0 



,GET ADDRESS OF LP STATUS REG 
,FORn ADDRESS OF LP DATA BUFFER PEG 
,GET FIRST ADDRESS 
, GET ft OF CHARACTERS 
, GET RETURN ADDRESS 
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SEQ 001(8 



% O ^ 7 




BIS 


1 Z3h 




n ▼ 

RTS 


1 Zis 








LP INT 


NOP 


1237 




TST 


1 238 




BPL 


1239 


4 e 

IS 


JSR 


12HU 


2S 


novB 


12H1 




INC 






TSTB 


1 2H i 




on 1 






O T 1 




LP ADR 


UORD 




LPCNT 


UORD 




LPB 


UORD 






ENDM 



tllOO.d LPS ,,SET INTERRUPT ENABLE BIT 

PC RETURN 



d LPS ..CHECK FOR ERROR 

2% ..BRANCH IF NO ERROR 

PC. a LPRET ..RETURN TO CALLER 

dLPADR.a LPB ..LOAD CHAR INTO BUFFER 

i.PROR ..STEP ADDRESS 

d LPS ..CHECK IF DONE 

2f ;; BRANCH IF NOT DONE 
RETURN 

0 ^'contains address OF FIRST DATA 

0 ..CONTAINS « OF CHARACTERS / LINE 

0 ..CONTAINS ADDRESS OF LP BUFFER REG 
SLPDRi/ 
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SEQ 0049 



12B0 
1251 
1252 
1253 
1264 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
I2b7 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
12S8 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 



nnCRO tTCDRV 
, ROUTINE TO REflO/URITE ON DECTRPE CRLL 
JSR PC, TCDRV 

, CALLER nUST LOAD THE FOLLOWING TC PflRRflETERS INTO 0 TABLE STRUCTURED 
.OS SHOWN BELOU. , „ 

, TCDT WORD 0 BLOCK I TO BE READ/WRITTEN 

, TCBA WORD 0 ^^tlEHORY TRANSFER ADDRESS 

, TCWC MORD 0 OF WORDS TO TRANSFER 

, TCCn WORD 0 ;; UNIT • AND COtlflAND 

,TCRET WORD 0 RETURN ADDRESS WHEN DONE 

,AND LEAVE RO POINTING TO FIRST ADDRESS OF TABLE ( TCDT) 



STCREGS 



TCDRV 


NOP 






MOV 


Rl, -(SP) 




MOV 


TCOS- Rl 




ADD 


«10. Rl 




nov 


(R0)4^/ (Rl ) 




nov 


(Rl ), (PC)* 


TCDTR 


WORD 


0 




SUB 


13, TCDTR 




nov 


(R0)+, -(Rl) 




nov 


(R0)*,-(R1) 




nov 


(RO), (PC)* 


TCCMD 


WORD 


0 




nov 


(RO)*, (PC)* 


SRCHF- 


. WORD 


0 




novB 


1 103,. SRCHF 




nov 


. SRCHF, (PC)* 


SRCHR 


WORD 


0 




BIS 


»4000, . SRCHR 




now 


SRCHF. (PC)* 


Tccon 


WORD 


Q 




nov 


(RO)*, (PC)* 


. TCRET 


. WORD 


0 




nov 


SRCHF, -(Rl) 




nov 


(SP)*,R1 




RTS 


PC 


INTERRUPT SERVICE ROUTINE 


TCINT 


now 


Rl, -(SP) 




nov 


TCDS,R1 




TST 


(Rl)* 




TST 


(i?l) 




Bni 


6S 




cnp 


SRCHF, TCCOn 




BNE 


4S 




cnp 


. TCWDT,6(R1) 




BEQ 


5S 




BLE 


3S 


IS 


nov 


TCWDT,6(R1) 


nov 


SRCHF, TCCOn 




nov 


SRCHF, (Rl) 



,,SAVE Rl ON THE STACK 

,,GET ADDRESS OF TCDS REGISTER 

,;FORn ADDRESS OF TCDT REGISTER 

,;LOAD BLOCK » 

;,SAVE BLOCK R 

;;CONTAiNS BLOCK • FOR REVERSE SEARCH 
,,FORn BLOCK f FOR REVERSE SEARCH 
; , LOAD nSnORY TRANSFER ADDRESS 
;,LOAD WORD COUNT 
;,SAWE connAND 

;; CONTAINS COnnAND TO EXECUTE WHEN BLOCK 
;; IS FOUND 
,,FORn SEARCH FORWARD COnnANO 
,, CONTAINS SEARCH FWD COnnAND 

; ; FORn SEARCH REVERSE COnnAND 

,, CONTAINS SEARCH REVERSE COnnAND 

,,SAVE connANO 

,; CONTAINS COnnAND ISSUED TO TC 
;,LOAD RETURN ADDRESS 
;, CONTAINS RETURN ADDRESS WHEN DONE 
,, ISSUE SEARCH FORWARD COnnAND 

RESTORE Rl 
, , RETURN 



,,SAWE Rl ON THE STACK 

,.GET ADDRESS OF TCDS REGISTER 

,,SET Rl s TO ADDRESS OF TCCn REGISTER 

CHECK ERROR BIT IN TCCn 
,, BRANCH IF ERROR 
,; CHECK IF FINISHED SEARCH FWD 

;, CHECK BLOCK ft READ 

.,G0 TO 5S IF BLOCK READ IS SOnE AS BLOCK 
,; REQUESTED 
,,LOAD BLOCK ft 
,,SAWE COnnAND 

ISSUE SEARCH FWD COnnAND 



02 
02 
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306 
307 
308 
309 
310 
311 
312 
313 

3m 

316 

316 

3ir 

318 

3:o 
3:1 
3:: 
3:3 

32M 
326 
326 
327 
328 
329 
330 
331 
332 
333 
33H 
335 
336 
337 
338 
339 
3H0 

3m 

3H2 
3»»3 

3»»b 
3^7 
3t8 
3H9 
360 
351 
352 
363 
354 
355 
366 
367 
368 
369 
360 
361 
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RESTORE Rl 



SEQ 0060 



2S 


nou 


(SP)*.R1 




RTI 




. , SET 


UP FOR 


REWERSE SEARCH 


3t 


now 


TCDTR,61R1) 




now 


. SRCHR/ TCCOn 




now 


TCC0n» (Rl ) 




BR 


2f 




cnp 


SRCHR/ TCCOn 




BNE 


ss 




cnp 


TC0TR,6(R1) 




BEQ 


If 




BR 


Zi 



/.INITIATE REQUEST COnnflND 



55 BIT 
BNE 

now 
now 

BR 

, ERROR SERWICE 
feS TST 

Bni 

75 TST 
BPL 
SEW 
JSR 
BR 



S5 BIT 
BNE 
BIT 
BNE 
BR 



«4/ (Rl) 
75 

TccnO/ Tccon 

TCCnO/ (Rl) 
25 



-2(R1) 
85 
(Rl) 
♦M 

PCi TCRET 
25 



IIU/ (Rl) 
75 

mOOO/ (Rl) 

15 

35 



;/LOflD REWERSE BLOCK « 

,/SfiWE connoNO 

INITIATE READ REWERSE COnnPND 
//EXIT 

;/ CHECK IF FINISHED SEARCH REWERSE 

CHECK BLOCK READ 
,,G0 INITIATE FWD SEARCH 
//CONTINUE REWERSE SEARCH 



CHECK IF FINISHED URITE OR READ 
BRANCH IF FINISHED URITE OR READ 

/;LOAD COnnAND 
//EXIT 



//CHECK IF END ZONE ERROR 
/.BRANCH IF END ZONE 
//CHECK ERROR BIT IN TCCO 

;,SET 'W* TO INDICATE ERROR 

//RETURN TO USER 

//EXIT 



;; CHECK IF READING OR WRITING 

BRANCH IF READING OR URITING 
//CHECK DIRECTION 
/, IF REV GO FUD 



. ENOn 5TC0RV 

HACRO 5LPnON 

,/ ROUTINE TO TYPE A MESSAGE ON THE LINE PRINTER 

// JSR PC. LPHON //CALL TO SERVICE ROUTINE 

ADDRESS //ADDRESS OF FIRST CHARACTER 

//CHARACTER STRING ENDS IN A 0 BYTE 



LPnON NOP 
TST 
BEQ 
SUB 
RTS 
INC 
BIT 
BNE 
DEC 

now 



LPS 

♦ 10 
•H, (SP) 
PC 

LPS 
klOO/dlLPS 

-6 

LPS 
lt5/dlLPVEC 



//•CHECK IF PREVIOUS REQUEST IS PENDING 
//BRANCH IF NO REQUEST 

RESET PC ON STACK TO RETURN TO 
/; REQUESTER 

//SET REQUEST PENDING INDICATOR 
CHECK IF LINE PRINTER IS BUSY 

//DECREnENT REQUEST INDICflTOR 
./SET INTERRUPT VECTOR 
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SEQ 0061 



1362 

13b3 

13b«t 

13bS 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

137H 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

138H 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

139«4 

1395 

1396 

1397 

1398 

1399 

moo 
moi 
m02 
mo3 
mOH 
m06 
m06 
m07 

HOB 
1<I09 
liilO 

llll 

11112 
11113 

1%1>I 

1^15 
I»I7 





nou 


K200' dlLPUEC^2 


,,PND PRIORITY ON INTERRUP' 




MOV 


J(SP),LPPTR 


,,GET FIRST PDORESS OF CHPR STRING 




POD 


•2/ (SP) 


/ , PDJUST RETURN PC 




PSR 


dILPS 


//SET INTERRUPT ENPBLE 




RTS 


PC 


, / RETURN 


/ / L 1 NE 


PR INTER 


INTERRUPT SERVICE 


ROUT INE 


IS 


TST 


dILPS 


; ; CHECK ERROR FLPG 




Bni 


3f 


//BRPNCH IF ERROR 


24- 


TSTB 


iLPPTR 


//CHECK FOR TERnONRTOR (0 BYTE) 




BEQ 


5t 






nova 


dLPPTR.dlLPB 


//LOPD CHPR INTO LINE PRINTER BUFFER 




INC 


LPPTR 


//STEP PTR TO NEXT CHPRPCTER 




TSTB 


dlLPS 


/ / CHcCK IF DONc. 




Btl 1 


1% 


//LORD NEXT CHHk Ir UQNt 




RT 1 




/ / EX 1 1 


,,HERE 


IF ERROR 






3f 


HLT 




//Lint rKINltK tKKUr 




CLP 


dILPS 


/ / U 1 sHbLt It S 1 1 




RTI 




/; RETURN 


/ / HERE 


UHEN DONE 




5S 


MOV 


«6f,d»LPVEC 


I 




RTI 




• / EX 1 T 




NOP 








CLR 


dILPS 


//CLEPR INTERRUPT ENPBLE 




TST 


LPS 


//CHECK IF REQUEST IS PENDING 




BEQ 


7S 


//BRPNCH IF NO REQUEST 




RTI 




//OTHERWISE EXIT TO REQUEST 



7S 



tlOV 
95 



(PC)/PC 



/;GET NEXT LINE PRINTER COfinflND 
,/CONTPlNS ADDRESS OF NEXT LP COfinPND 



, /PRINT PDP-11 IN8IG1ETTERS 



95 



LPS 



JSR 
31. 

LPDPT 

-600 

505 

cnp 

BNE 
JSR 
LPDPT 
RTI 
UORD 

ENDn 



PC/OTSERV 



1-540/ dITCUC 
-6 

PC/LPSERV 



0 

5LPn0N 



//DTHIE+RDPTP+DO 

/.UP IT FOR 80 CHPRPCTERS TO BE REPO IN 



/•/CONTPINS REQUEST INDICRTOR 



HPCRO StITDRV 
-ROUTINE TO REPD/HRITE ON MRGTPPE CRLL 

JSR PC/ MTDRV 
/CPLLER MUST LORD THE FOLLOWING PPRPflETERS INTO R TABLE STRUCTERED 
/PS SHOUN BELOW: 

/ riTCnP UORD 0 //CONTRINS bus PDORESS 

/ MTBRf UORD 0 //CONTAINS BYTE TRPNSFER COUNT 
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tms 

mzi 
m22 
m23 
m2M 
m26 

1U26 

m27 
m28 

1H29 

m3i 
m32 
mz: 

m36 
m37 
m38 

1H39 
IHHO 
IHHl 
mH2 

mH3 

1HH5 

mH7 
XHHS 

m«i9 

1H60 

m62 
m63 

m57 
m5S 
m59 
mbo 
m6i 
m62 
mb3 
m64 
m65 

me? 
m68 

11469 

1471 
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. ,nTRET 


UORD 


0 


,/CONTHlNS RETURN HDDREss WHEN DONE 


. , htc. 


UORD 


0 


;,CONTRINS COMMRNO 


, ,RND LERVE RO 


POINTING TO THE 


FIRST RDDRESS OF THE TRBLE ( MTCMR) 




SMTREGS 






tITDRV 


NOP 








flOV 


Rl, -(SP) 


,,SRVE Rl ON THE STRCK 




MOV 


MTS/Rl 


.;GET RDDRESS OF MTS REGISTER 




ROD 


«b,Rl 


,,FORM RDDRESS OF MTCMR REGISTER 




now 


(RO)*/ (Rl) 


;,lORD MTCMR REGISTER 




HOV 


(RO)*. -(Rl) 


,,L0RD MTBRC REGISTER 




MOV 


(SP)*,R1 


RESTORE Rl 




MOV 


y KU ) ir t ) ♦ 




nlRET 


. UORD 


0 






MOV 


(RO).a MTC 


,,LORD COMMRNO 




RTS 


PC 




MT ( klT 


NOr 








MOV 


RO, -(SP) 


,,SRVE RO ON THE STRCK 




MOV 


MTL/RIJ « 






JSR 


PC, a MTRET 


RETURN TO CRLLER 




MOV 


(S«')+,RO 


RESTORE RO 




RTI 




,,EXIT TO MONITOR 




ENDM 


SMTDRV 






MRCRO 


fRFDRV 




ROUTINE TO REOD/URITE ON THE 


RF DISK CRLL 




JSR 


PC RFDRV 





CRLLER MUST LORD 
RS SHOUN BELOU 



THE FOLLOUING RF PRRRMETERS INTO R TRBLE STRUCTURED 



, , RFDRE 


UORD 


0 


.,C0NTRINS EXTENDED DISK RDDRESS 


, , RFDR 




UORD 0 


,,CONTRINS DISK RDDRESS 


, , RFBR. 




UORD 0 


,,CONTRtNS BUS RDDRESS 


RFUC 




UORD 0 


,,CONTRINS UORD COUNT 


,,RFRET 




UORD 0 


,,CONTRINS INTERRUPT RDDRESS 


RFDCS 


UORD 0 


,,CONTRINS COMMRNO 


, ,RND LERVE RO 


POINTING TO THE 


FIRST RDDRESS OF THE TRBLE ( RFDR) 




fRFREGS 






RFDRV 


MOV 


R1,-(SP) 


,,SRVE Rl ON THE STRCK 


MOV 


RFDCS, Rl 


,,GET RDDRESS OF RFDCS REGISTER 




RDD 


filO,Rl 


;,FORM RDDRESS OF RFDRE REG i STEP 




HOV 


(aO)*, (Rl) 


,;LORD RFDRE REGISTER 




MOV 


(R0)+, -(Rl) 


.,LORD RFDR REGISTER 




MOV 


(R0)+, -(Rl) 


,,LORD RFCMR REGISTER 




MOV 


(R0)+, -(Rl) 


;,LORD RFUC REGISTER 




MOV 


(SP)*,R1 


,, RESTORE Rl 




MOV 


(RO)*, (PC)* 


^AORO RETURN RDDRESS UHEN DONE 


. RFRET: 


. UORD 


0 


,,CONTRINS RETURN RDDRESS UHEN DONE 


MOV 


(R0),d RFDCS 


,,LORD COMMRNO INTO RFDCS REGISTER 




RTS 


PC 


,,EXIT 
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SEQ 0062 



\^7^ RFINT NOP 

m75 now RO, -csP) 

m7b now RFDCS^RO 

\**7? JSR PCa. RFRET 

l«478 nOV (SP)*,RO 

m79 RTI 

mso 

mSl ENOn tRFORV 



. ,SRWE RO ON THE STRCK 

,A0R0 ROORESS OF RFOCS INTO RO 

RETURN TO CRLLER 

RESTORE RO 
,;EXIT TO MONITOR 
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SEQ OOSH 



1483 
1484 
1485 

msb 

1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
149& 
149fe 
149"" 
149S 
1499 
:500 
IBOl 
1S02 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
151b 



nPCRO tRKDRV 
ROUTINE TO REflD/HRITE IN THE RKll DISK CALL 

JSR PC/ RKDRU 
COLLER MUST LORo' THE FOLLOWING 



RK 



RKDR- 
RKBR 
RKUC 
RKRET 
RKCS 



UORD 
UORO 
UORD 
UORD 
UORO 



0 
0 
0 
0 
0 



PflRRflETERS INTO R TABLE STRUCTURED AS SHOUN BELOH 
,,DISK. ADDRESS (INCLUDES UNIT •) 
,,nEnORY TRANSFER ADDRESS 
OF WORDS TO TRANSFER 
RETURN ADDRESS UHEN DONE 

, , connRND 



.AND LEAVE RO POINTING TO THF. FIRST ADDRESS OF THE TABLE ( RKDA) 



./SAVE Rl ON THE STACK 
,,R1 : ADDRESS OF RKDS REGISTER 
,;R1 : ADDRESS OF RKDA REGISTER 
,/LOAO DISK nODRESS REGISTER 
,,LOAD 8US ADDRESS REGISTER 
;/LOAO UORO COUNT REGISTER 

RESTORE Rl 
;/LOAD RETURN ADDRESS UHEN DONE 
, / CONTAINS RETURN UHEN DONE ADDRESS 
;/LOAD IN COWIAND 
//CONTAINS ADDRESS OF RKCS 
./RETURN 



/RETURN TO CALLER 
.EXIT INTERRUPT 





$RKREGS 




RKDRV 


nov 


R1/-(SP) 




nov 


RKDS/Rl 




ADO 


«12/R1 




nov 


(R0)+. (Rl) 




nov 


(RO)*/ -(Rl) 




nov 


(RO)*.-<Rn 




nov 


(SP)*/R1 




nov 


(RO)*/ (PC)* 


RKRET 


. UORD 


0 




nov 


(RO)/afPC)* 


RKCS 


. UORD 


0 




RTS 


PC 


RK INT 


NOP 






JSR 


PC/ a PKRET 




RTI 






ENOn 


SRKDRV 
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SEQ 0066 



1618 
1619 
1620 
1621 
1622 
1623 
16Z>4 
1626 
162b 
1627 
1628 
1629 
1630 

i6:i 

1632 

16:: 

I63H 
1636 
163b 
1537 
1638 
1639 
16H0 
16H1 
1642 
16H3 
16HH 
16H6 
16>tb 
16H7 
ISitS 
t6M9 
1660 
1661 
1662 
1663 



nPCRO SRPDRU 
ROUTINE TO RERD URtTE ON THE RPll DISK 
CALL JSR PC.RPDRW 

CRLLER MUST LORD THE FOLLOWING RP PflRflflETERS INTO 0 TfiBLE STRUCTURED RS 
SHOUN BELOU 

RPDR UORD 0 

. RPCR UORD 0 

. RPBR UORD 0 

RPUC UORD 0 

RPRET UORD 0 

RPCS UORD 0 



,,CONTRINS 
CONTAINS 
;; CONTAINS 
,,CONTRINS 

RETURN RODRESS UHEN DONE 
, CONTAINS COnnRND UORD 



DISK RODRESS 
THE CYLINDER 
BUS RODRESS 
UORD COUNT 



RODRESS 



RND LERUE RO POINTING TO FIRST RODRESS OF THE TRBLE ( RPDR> 



,,SRUE Rl ON THE STRCK 



,AORD DISK ADDRESS 
.;LORO CYLINDER RODRESS 
. . LORD BUS RODRESS 
, , LORD UORD COUNT 

RESTORE Rl 
,,LORD RETURN RODRESS UHEN DONE 

CONTAINS RETURN R0DRS3 UHEN DONE 
,,LORD COrWRNO INTO RPCS 

CONTAINS ADDRESS OF RPCS REGISTER 



.RETURN TO CALlCP 
RETURN 





SRPREGS 




RPDRl 


NOP 






nov 


R1,-(SP) 




nov 


RPDS,R1 




ADD 


im.Ri 




nou 


(RO)*. (Rl) 




nou 


(R0)+, -(Rl) 




nou 


(RO)+.-(Rl) 




nov 


(R0)*,-(R1) 




nov 


(SP)*,R1 




nov 


(RO)*, (PC)* 


RPRET 


UORD 


0 




nov 


(RO),d(PC)* 


RPCS. 


UOPO 


0 




RTS 


PC 


RPiNT 


NOP 






JSR 


PC.i RPRET 




RTI 






ENOn 


SRPDPW 
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SEQ 006b 



1555 
155b 
155' 
1558 
1559 
15b0 
15bl 
16b2 
15b3 
15b>t 
15b5 
15bb 
I5b7 
15b8 
15b9 
1570 
1571 
1572 
1573 
167S 
1675 
167b 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
168M 
1686 
168b 
1687 
1688 
1689 
1590 
1591 
15*': 



nnCRO tRPHDRV 
ROUTINE TO RERD/URITE ON RP0^/RP06 DISK CALL 

JSR PC. RPt»ORU 
COLLER MUST LORD THE FOLLOWING RP PflRRflETERS INTO R TRBLE STRUCTURED 
RS SHOUN BELOU- 



. RPCS2 


. UORD 


0 




RPDST 


UORD 


0 




RPCR 




UORD 


0 


RPBR 




. UORD 


0 


RPUC 




UORD 


0 


RPRET 




UORD 


0 


RPCSl 


. UORD 


0 





,,C0NTRINS DISK UNIT » 
,,CONTRINS DESIRED SECTOR 
,,CONTRINS 
,,CONTRINS 
,.CONTRINS 
,,CONTRINS 
,,CONTRINS connRNO 



CYLINDER 
BUS RDDRESS 
UORD COUNT 
RETURN ROORESS 



TRACK ADDRESS 
ADDRESS 



UHEN DONE 



AND LEAVE RQ POINTING TO FIRST ADDRESS IN THE TABLE ( RPCS2) 
SRPMREGS 



RPHDRV. NOP 




,,SflVE Rl ON THE STACK 




nov 


Rl,-(SP) 




MOV 


RPCSl. Rl 


;,GET ADDRESS OF CSl REGISTER 




ADD 


•lO.Rl 


,;FORn ADDRESS OF CS2 REGISTER 




nou 


(R0)+. (Rl) 


,,LOAO UNIT « (RPCS2) 




nou 


(RQ)+.-(Rl) 


,,LOAD TRACK/SECTOR (RPDST) 




nov 


(RQ)^.2b(Rl) 


;;LOAD CYLINDER ADDRESS (PPCA) 




nov 


(R0)*,-(R1) 


,.LORO BUS ADDRESS (RPBA) 




nov 


(RO)*,-(Rl) 


;;LORD UORD COUNT (PPUC) 




nov 


(RO)*. (PC)* 


.;LORD RETURN ADDPESS 


RPRET 


UORD 


0 






nov 


(SP)*/R1 


RESTORE Rl 




NOP 








nov 


(RO),d RPCSl 


,,LORD connRND 




RTS 


PC 




RPINT 


NOP 








JSR 


PC.i RPRET 






RTt 








ENOn 


SPP4DRV 





J 



D2 
D2 



UD-D Tn02 
UDD SriL 

59^ 
595 
59b 
697 
598 
599 
600 
601 
602 
603 
60^ 
605 
bOb 

6cr 

605 
bin 

bll 
612 
613 
611* 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62>« 
625 
626 
627 
628 
629 
630 
631 
tZZ 
oZ" 
e3k 
635 
636 
637 
638 
639 
6H0 
6>«1 
6H2 
6H3 

6>«5 
6>«6 
6'* 7 
6H8 
6«49 
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nnCRO fRSDRU 
ROUTINE TO REBD/HRITE ON RS04/RS05 DISK COLL 
JSR PC. RSDRU 

CALLER MUST LOAD THE FOLLOWING RS PPRflHETERS INTO fl TABLE STRUCTERED 
flS SHOUN BELOU. 
RSCS2 UORD 0 

. UORD 
UORD 
UORD 
UORO 

0 



RSDfl 
. RSBP 

RSUC 
RSRET. 

RSCSl 



0 
0 
0 
0 



UORD 



CONTAINS UNIT « 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 

CONTAINS COtlflBND 



DISK ADDRESS 
BUS ADDRESS 
UORD COUNT 
RETURN ADDRESS 



UHEN DONE 



AND LEAVE RQ POINTING TO THE FIRST ADDRESS IN THE TABLE ( RSCS2) 



RSDRU: 



PSRET 



RSI NT 



SRSREGS 




NOP 




nou 


Rl. -(SP) 


nov 


RSCS2,R1 


now 


(RO)*. (Rl) 


nov 


(RO)*,-(Rn 


nov 


(R0)*,-(R1) 


nov 


(RO)*,-(Rl) 


nov 


(RO)*/ (PC)* 


UORD 


0 


nov 


(SP)*.R1 


now 


(RO),a RSCSl 


RTS 


PC 


NOP 




JSP 


PC, 9 RSRET 


RTI 




ENDn 


SRSDRV 



,,SAVE Rl ON THE STACK 

,,GET ADDRESS OF RSCS2 REGISTER 

,,LOAO UNIT • (RSCS2) 

,AOAD DISK ADDRESS (RSOA) 

,/LOAD BUS ADDRESS (RSBA) 

,,LOAO UORD COUNT (RSUC) 

,AOAD INTERRUPT RETURN ADDRESS 

RESTORE Rl 
,,LOAO COnnAND 
RETURN TO CALLER 



EXIT TO nONITOR 



nnCRO fHLT 



ERROR 



PAGE 

SERVICE 



ROUTINE IS ENTERED BY AN EnT 
, .AS AN ARGUEnENT TO THE EnT 

HLT 



CALLED BY HLT 'EttT) INSTRUCTION 



INSTRUCTION AND THE FORnAT CONTROL BYTE 



IS 



HLT=EnT 






NOP 






INC 


JIERTTL ' 


/ 


MOV 


ll/dlERRFLG 


p 


now 


(SP),dtERRPC 




SUB 


l2,dtERRPC 


/ 


nov 


2(SP),dtERRPSU 


/ 


TST 


dSUR 


/ 


Bni 


HLT3 


/ 


BIT 


»SU9, dSUR 


/ 


BEQ 


IS 




now 


dlEPTTL/dlDI SPLAY 


nov 


dtEPC. (SP) 


/ 


BIT 


•SUll.dSUR 


/ 


6NE 


HLTl 





INCREMENT 
SET ERROR 



TOTAL 
FLAG 



ERROR COUNT 



FORM PC OF ERROR CALL (HLT) 
GET PSU AT TinE OF ERROR 
CHECK FOR HALT ON ERROR 
BRANCH IF HALT ON ERROR 
CHECK FOR LOOP ON ERROR SUITCH 

DISPLAY ERROR COUNT 
SET UP RETURN FROn ERROR 
CHECK INHIBIT TYPEOUT SEITCH 
BRANCH IF NO TYPEOUT DESIRED 
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SCO 0068 



1650 

ibs: 

1653 

IbSH 

1655 

1656 

1657 

1658 

1669 

lt>60 

Ibel 

16b: 

16b3 

I6b>t 

lbb5 

lb6b 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

167^ 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

168M 

1686 

1686 

lb87 

1638 

168? 

lb?0 

1691 

169: 

1693 

169H 

1696 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

170'« 

1706 



HLTO 
HLTl 



HLT2 
HLT3 



HLTH 



IS 



HLT5 



SAVE 




MOV 


ilERRPC.R2 


MOV 


R2.R3 


CNV16 




TYPE 




ERRPCM 




MOVB 


(R3),R0 


BNE 


HLTH 


RESTORE 




BIT 


iSUlO/ dSUR 


BEQ 


HLT2 


TYPE 




D b L L 




TST 


asuR 


BPL 




HOLT 




RTI 




NOP 




BIC 


«177^00,R0 


CMP 


«1.R0 


BNE 


HLT6 


MOV 


H(R3).R0 


MOV 


6^R3),R1 


MOV 


101P3)-XFEPS 


MOV 


Rl. R2 


TYPE 




ERRDEV 




rNVI 6 




TYPE 




DIGITS 




TYPE 




SCRLF 




MOV 


(Rl)*- P2 


CNV16 




TYPE 




DIGITS 




DEC 


RO 


BNE 


IS 


BR 


HLTEX 


CMP 


»2,R0 


BLT 


HLT7 


RESTORE 




SAVE 




TYPE 




DEVID 




CNV18 




TYPE 




DIGITS 




TYPE 




GDDRT 




MOV 


R0.R2 


CNV16 




TYPE 





,,GET PC OF ERROR CALL 
,,SnVE IN R3 



..GET ERROR CALL INSTRUCTION 
..BRANCH IF EMT*X 

/.RING BELL ON ERROR 



..CHECK HALT ON ERROR SWITCH 



..CHECK IF DEVICE ERROR CALL (DEVERR) 

..GET ff OF REGISTERS TO DUMP 
..AND ADDRESS OF FIRST DEVICE REGISTER 
..GET ADDRESS OF TRANSFER COUNT 



..CHECK IF DATA ERROR CALL "DATEPP) 



..GET GOOD DATA 
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70b 
707 
708 
709 
710 
''It 
712 
713 
7m 
■'15 
71b 

^1? 
'11 

■'13 
■^2H 
72B 
72b 
727 
728 
729 
730 
731 
732 
733 
73H 
736 
73b 
737 
738 
739 
7H0 
7m 
7U2 
7UZ 

^^u 

""*o 
7U7 
7«»S 
749 
760 
761 
762 
763 
764 
766 
76b 
767 
768 
759 
7b0 
7b 1 
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HLTEX 



DIGITS 

TYPE 

BDDBT 

MOV 

CNVlb 

TYPE 

DIGITS 

TYPE 

SCRLF 

TYPE 

XFER 

CNV48 

TYPE 

OIGBUF 

TYPE 

5CRLF 

BR 



R3.R2 



. GET BAD OflTR 



HLTO 



HLT7 


HRLT 




. .DIGIT 


TABLE 




DIGTRB 


"01 






"23 






"45 






"b7 




ERPPCn 


RSC 1 1 


'ERROR PCs ' 


DIGITS 


flSC 12 


'000000 ' 


SCRLF 


flSCIZ 


<t5><l2> 


BELL 


fiSClZ 


<7> 


ERROEV 


. fiSClZ 


■DEVICE ERR0R'<15>''12> 


DEVIO 


. ASC M 


'XX DATA ERR0R'<16><12' 


RDRS 


. ASCIZ 


'nenoRY flODRESS= ' 


GDOPT 


ASCI 2 


•GOOD OATfls • 


BDDflT 


ASCIZ 


BAD DATA: ' 


XFER 


ASCIZ 


•DEVICE TRANSFER COUNT= 


DIGIT 


ASCIZ 


•0' 




EVEN 






ENOn 


4HLT 




MACRO 


SCATCH 




NLIST 






=0 






0 






0 






PEPT 


1"4 




+2 






HALT 






ENDR 






LIST 






ENOn 


4CPTCH 




MACRO 


SST200 



= 200 

jnp 

ENDM 
MACRO 



dl START 

iST200 

SCflTBG 



-GO TO START OF TE 
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17b: 

1763 

I7b>4 

l"'b5 
I7bb 
l-'67 
1768 
1769 
1770 
r^l 

it: 

17^3 
1776 

r'b 

, - ~Q 

1780 
1781 
17S: 
1783 
178M 
1785 
178b 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
179M 
1795 
1796 
1797 
179S 
179? 
ISOC 
5301 

iso: 

1S03 
180«« 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
18m 
1815 
1816 
1817 



,,UORDS LOADED BY 'HLT' 
ERRPC UORD 0 
ERRPSU UORD 0 
ERTTL UORD 0 
SCPBLK UORD 0 

ICNTsSCPBLK 



ITCNT 
LflSTPC 

EPC 

ERRFLG 
TICKS 



UORD 
UORD 

UORD 
UORD 
UORD 
ENOM 

nPCRO 

JSR 

RDR 

LEN 
ENDfl 
nflCRO 



2 

0 
0 
0 

SCnTflG 



CONTAINS PC OF ERROR DETECTED 
CONTAINS PSU AT TIME OF ERROR 
CONTAINS TOTAL ERRORS DETECTED COUNT 
CONTAINS PASS COUNT 

CONTAINS SUBTEST ITERATION COUNT 
CONTAINS LAST SCOPE CALL PC 

CONTAINS SCOPE RETURN FOR ERRORS 

CONTAINS ERROR FLAG 

CONTAINS TICK COUNT FOR CLOCKS 



SVTKt ADR. LEN 
R5, SVTK 



SVTKi 
4SUTK 

.ROUTINE TO SETUP TRAP VECTORS 
SVTK MOV RO.-(SP) 

MOV (R5)*,R0 

TST (R5)* 

nOV (R0)4,atERRVEC 

nov (RO)*.aintivEC 

MOV (R0)4-,aiBPTVEC 
riOV (RQ)*,ailOTWEC 
nov (RO)t'dlRESVEC 

nov (RO)*,aiEnTVEC 
nov (RO)*,atTRAPvec 

nov (R0)4-,dtFPEVEC 

nov (SP)*.RO 

RTS R5 



,,G0 SETUP TRAP VECTORS 



/SAVE RO ON THE STACK 

.GET TABLE ADDRESS 

, POP LENGTH ARGUnENT 

,SET ERROR TRAP VECTOR 

;SET rtEfl riGni ABORT TRAP VECTOR 
.;SCT 'BPT' TRAP VECTOR 
. /S^T lOT TRAP VECTOR 
!;SET RESERVED INTRUCTION TRAP VECTOR 
;;SET EttT TRAP VECTOR 
;,SET TRAP TRAP VECTOR 
-.SET FLOATING PC I NT TPAP VECTOR 
..RESTORE RO 
, .RETURN 





ENOn 


fSVTK 




nACRO 


SVECTAB 


VECTAB 






ERRTRP- 


UORD 


ERRVEC+2 


nnvEC. 


UORD 


nnvEC+2 


BPTVEC 


UORD 


BPTVEC+2 


lOTVEC 


UORD 


tOTUEC+2 


RESVEC 


UORD 


RESVEC+2 


EnTVEC 


UORD 


HLT 


TRPVEC 


UORD 


TRAPS 


FPEVEC 


UORD 


F?EVEC*2 




ENDn 


tVECTAB 




. nACRO 


4STRRTUP 



, START OF PROGRAM 
START nov ISTKPTR.SP 
CLR aiSCPBLK 
SVTK4 VECTAB. 8 
ENOn 4STARTUP 



SET STACK POlNTEff 
.CLEAR PASS COUNT 
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SCO 0061 



1818 

1819 

1820 

1821 

1822 

1823 

182H 

182B 

1826 

1827 

1828 

1829 

1330 

1831 

1832 

182: 

183H 

1835 

1836 

1837 

1838 

1839 

18^0 

iStl 

18H2 

18H3 

18H1 

18H6 

18^6 

18H7 

18H8 

1849 

1860 

1861 

1862 

1863 

1864 

1866 

1866 

185"' 

1868 

1869 

1860 

1861 

1862 

1863 

186H 

1866 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 



nPCRO StIRtlFO 

ROUTINE TO SET BCTION ENfiBLE ON nO/riF PARITY riEnORIES 
,,CnLL JSR PC, tlfiriF 



notiF 



IS 
2S 

3S 



PORCSR= 
PRRUEC: 

BIT 
BNE 

tlOV 

nov 
now 
nou 
nov 
tiov 
nov 
nov 

SEZ 

nov 

BEQ 
flSL 
BCC 

now 
nov 

RTS 



172100 

im 



,,ODDRESS OF FIRST MO/ttF PRRITY CSR 
,,RODRESS OF PRRITY INTERRUPT VECTOR 



imO.dSUR CHECK IF PRRITY ERROR DETECTION IS TO 

3S ;;ENRBLE. BRRNCH IF NOT TO BE ENRBLED 

II PflRSRV,ilPflRVEC ,,SET PRRITY INTERRUPT VECTOR 

l340,aiPRRVEC*2 ;;RNO PRIORITY LEVEL 7 ON INTERRUPT 
a»ERRVEC,-(SP) ;;SRVE CURRENT ERROR VECTOR 
ilERRVEC*2,-(SP),,RN0 PRIORITY LEVEL 
iERRVEC>2,dtERRVEC 
IRTLdtERRVEC42 

IPRRCSR.ro ,,GET FIRST CSR ROORESS 

11, R2 



SET TinE OUT IND'CRTOR 
SET RCTION ENRBLE IF RVRILRBLE 
BRRNCH IF CSR NOT RVRILRBLE 
SHIFT RVRILRBILITY INDICATOR 



tax, (R0) + 

2S 
R2 
IS 

(SP)>,aiERRVEC^2,, RESTORE ERROR VECTOR 
(SP)>,dtERRVEC /'RNO INTERRUPT VECTOR 
PC 



PRIORITY LEVEL 



PRRITY ERROR SERVICE ROUTINE 
,,HHEN fi PRRITY ERROR IS DETECTED THIS ROUITNE TYPES R flESSfiGE 

'PAR ITY ERROR ' 

^'thEN SCRNS nEnORY for the ADDRESS CAUSING THE PARITY ERROR UHtN 
ADDRESS IS LOCATED THE ADDRESS IS PRINTED.RNO THE PROGRAH HALTS 
PRESS CONTINUE TO RESTART 



THE 



PARSRV- 



IS 



3S 
4S 



TYPE 
PARERR 

CLR 

nov 
nov 
nov 

TST 
BR 

TYPE 

RDRS 

CNV18 

TYPE 

DIGITS 

HALT 

jnp 

nov 

CNV18 
TYPE 
NOPAR 
TYPE 



Rl 

ll2S/dtPARVEC 
«>4S, dlERRVEC 

•sS'itnnvEC 

(Rl )♦ 
IS 



,SET FIRST ADDRESS 

,SET PRRITY ERROR VECTOR 

,SET ERROR TRAP VECTOR 

,SET nEn ncnT abort vector 
,SCAN nEnoRY 



dlSTARTl 

4(SP).R1 



,GET PC AT TinE nF PARITY ERROR 
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SEQ 0062 







ERRPCn 


187B 




BR 








1 877 




ADD 


1878 




MOV 


1879 




RTI 


1880 






1881 


PnRERR 


flSC 1 Z 


lRfi2 


NOPRR 


flSC IZ 






EVEN 


1S8H 






i88S 




ENDM 


188& 

1 WWW 




MRCRO 


188"' 


,,BOOT 


LOROER 


1888 


,,THE FOLLOWING 


IBS') 

1 ow 






1890 


BLKODRT 


CLR 


1891 




MOV 


1892 




MOV 


1893 


IS 


MOV 


189M 




DEC 


1896 




BNE 


189b 




ROD 


1897 




MOV 


1898 




CLR 


1899 


2S 


MOV 


1900 




TSTB 


1901 




BPL 


1902 




CMP 


1903 




BNE 


190*4 




MOV 


190B 






1906 




TSTB 


1907 




BPL 


1908 




CLR 


1909 




HRLT 


1910 




ENOn 


1911 




. MflCR 


1912 


,.19 DOTfl BUFFE 


1913 


LPDflT 


. ASC II 


i9m 




RSC 1 1 


1916 




RSCII 


1916 




ASCII 


1917 




ASCII 


1918 




RSCI 1 


1919 




RSCI 1 


1920 




ASCI 1 


1921 




ASCI 1 


1922 




ASCI 1 


1923 




ASCII 


1924 




ASCI 1 


1925 




ASCII 


1926 




ASCIZ 


1927 




EVEN 


1928 




ENDM 


1929 







IS 

«200,dlKIPAR2 
«HG000/R1 



RESET ADDRESS 



•PARITY ERROR" 
•NO PARITY ERROR 



tMAMFO 
DTBOOT 



RO 

«64 .Rl 

«20000.R2 

(R0)>. (R2)* 

Rl 

\% 

120000. PC 
«-H096. .dITCUC 
dITCBA 
l3,dlTCCn 
atlCCM 
-H 

«l0,dlTCDT 

ffS.aiTccn 



DETECTED ON SCAN 



RELOCATE 

DECREMENT WORD COUNT 

,,60 TO RELOCATED CODE 
;,LOAD DECTAPE WORD COUNT 
;;LOAD MEMORY TRANSFER ADDRESS 

SEARCH FWD ON UNIT 0 
,,UAIT FOR READY 

CHECK BLOCK 8 

ISSUE READ COMMAND 



dlTCCn ,,UfllT FOR READ TO FINISH 

-4 
aiTCCM 



LPDPll 

\ 

'PPPPPPPP 
•PP 
•PP 
•pP 
•FP 
•PP 
•PP 



DDODDDDD 



PPPPPPPP 



PP 
PP 
PP 
PP 
PP 
PP 



•PPPPPPPP 
•pP 
'PP 
•PP 
•PP 
•PP 



DO 
DD 
DO 
DD 
00 
00 
DD 
DD 
DO 
DD 
00 



DD 
DD 
DD 
DD 
DD 
00 
DD 
DD 
DD 
DD 

DD 



PP 
PP 
PP 
PP 
PP 
PP 



PP 
PP 
PP 
PP 
PP 
PP 



1 

11 



DDDOOODD 



PPPPPPPP 

PP 
PP 
PP 
PP 
PP 



11 
11 



11 
11 



•PDP-ir <16V12> 



11 
111 
nil 
11 
11 
11 
11 
11 
11 
11 
11 

mill 

Ullll 



<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<15> 
<1 
<1 



<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

<12> 

5><12> 

5><12> 
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02TU00 SnL 21-0CT-77 09 SEQ 0063 



1930 



D2TU0-D TMOZ DRIVE FUNCTION TIMER 
02TU00 Pll 27-0CT-77 13 17 

1932 
1933 
193«4 
193S 
193b 
1937 
1938 
1939 
19U0 
I9m 
19»»2 
191*3 
19>4U 
19«*5 
l9^b 
19U7 
19H8 
:9»»9 
i960 
1961 
1962 
1963 
196H 

1966 100000 
1966 OHOOOO 
1957 020000 

1968 OOHOOO 

1969 002000 

1960 001000 

1961 OOOtOO 

1962 000200 

1963 000100 
196H 

1966 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
l97^ 
1976 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
198'* 
1986 
1986 
1987 



tIflCYll 3Q(IQH6) 27-OCT 



n 

■77 



6 

U H2 



PAGE lb 



SEQ 006H 



NL I ST nc 

LIST tIE 
ENRBLE FIBS. Ann 

nCflLL ICPREG, SCPVEC. SCPREG, SCflTCH, STYPE 

T'TLE DZTUD-D Tn02 DRIVE FUNCTION TIMER 

SBTTL STRRTING INSTRUCTIONS 
LOADING RND STARTING PROCEEDURE 

LORD PROGRRn USING RBS LOADER 
LOAD ROORESS 200 
SET SUITCH OPTIONS 
PRESS STRRT 

GENERRL REGISTER USRGE 

RQsRODRESS OF 'FC REGISTER (SET BY SCOPE) 
R1=ADDRESS OF 'OS' REGISTER (SET BY SCOPE) 
R2=RETURN PC FROM TIMER (SET BY EACH TEST) 

R3s INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
RMsCONTAINS 'TICK' COUNT UHEN TIMER IS RUNNING (SET BY TIMER) 
RSaADDRESS OF CSl (SET BY SCOPE) 

SWITCH REGISTER SWITCH ASSIGNMENTS 

SW15= 100000 'HALT ON ERROR 

SWm: OMOOOO 'LOOP SUBTEST 

SW13= 020000 , INHIBIT ERROR TYPE OUT 

SUlU QOUOOO , INHIBIT SUBTEST ITERATION 

SUlOs 002000 'INHIBIT PUBLICATION OF FUNCTION TIMES 

SW09: 001000 'RING BELL ON ERROR 

SW08= OOOUOO 'TYPE LINE ITEM AFTER EACH ITERATION 

SU07= 000200 'HALT ON TEST SELECTED IN SW06-SW00 

SWObs 000100 'CONTINUOUS CYCLE 



SBTTL 

MACRO 
JSR 

ENDM 

MACRO 
JSR 
. ENDM 

MACRO 
JSR 
. ENDM 

MACRO 
JSR 
BVS 
. ENDM 

MACRO 
JSR 
. ENDM 
. MACRO 
JMP 

ENDM 

MACRO 
INC 

ENDM 



MACRO DEFINITIONS 
SAVE 

PC'. SAVE 

SAVE 

RESTORE 

PC' RESTORE 

RESTORE 

INPUT 

PC' INPUT 

INPUT 

REUINO 

PC' REWIND 

99S 

REWIND 
TIME ON 
PC'TIMON 

TIHCHK 
TIHER(R3) 

SETGO 
(R5) 



,SflVE REGISTERS ON THE STACK 



RESTORE REGISTERS FROM THE STACK 



'GET USER INPUT 



'REWIND SLAVE 

.BRANCH IF ERROR ON REWIND 



TURN TIMER ON 



,G0 TO TIMER & RETURN VIA R2 



'SET 'GO' BIT 



DZTUD-D Tn02 DRIVE FUNCTION TIMER 
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nflCYll 30(10Hb) 27-0CT-77 13 H2 PAGE 16-1 
nnCRO DEFINITIONS 



iCQ 0066 



1988 
1989 
1990 



f 

( 
( 

( ' 
(■ 
( 

(' 
(' 
( 

C 
{' 
(• 
1991 
( 

(' 
( 

C 
(' 
( 

( ■ 
( 



( 
( 
I 
( 

(* 
( 

1992 
1993 
199H 
1996 
1996 
1997 
1998 
1999 
2000 
2001 



000000 
000001 
000002 
000003 

ooooou 

000005 
000006 
000007 
000000 
000001 
000002 
000003 

ooooou 

000C36 



1777' 76 
177774 
177772 
177770 
177660 
177662 
177564 
177666 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000114 
000240 
000244 
000260 



172640 
000104 
177546 
000100 
177514 
177616 



172440 



.SBTTL REGISTER flSS I 6N»ENTS 
..DEFINITIONS RNO REGISTER RSSIGNHENTS 
,,GENERPL REGISTER nSSIGNKENTS 

R1 = X1 
R2=>'.2 
R3s5{3 
R4=*/.4 
R 6=^.6 
SP=:'.6 

R 10=^.3 
R\\='/A 
R12=X2 
R13=5'.3 
R14=X4 
R15=5{6 



REGISTER ADDRESSES 



PSU: 
SLR = 
PIRQ= 
UBREPK: 
TKS= 
TKB= 
TPS= 
TPBs 



177776 
177774 
177772 
177770 
177660 
177662 
177564 
177566 



.VECTOR ADDRESSES 
ERRVEC=4 
RESVEC=10 
TBITVECrm 
TRTVEC=14 
BPTVEC=14 
IOTVECs20 
PFVEC=24 
EnTVEC=30 
TRflPVEC=34 
TKVEC= 60 
TPVECs64 
PflRVEC= 114 
PIRVEC=240 
FPEVEC=244 
nnVEC=250 

CLOCK ADDRESS AND VECTORS 
PLKCSR= 172640 
PLKVEC= 104 
LKS= 177646 
LKVEC= too 
LPS= 177614 
LPB= 177616 

RHll. Tf102/TU16 REGISTERS 
TnCS1= 172440 



;,PR0CESSER STATUS UORD 

STACK LIfllT REGISTER (11/40, 11/46) 
.xPROGRAfl INTERRUPT REQ (11/46) 
,.niCRO-BREAK REGISTER (11/45) 
;; KEYBOARD CSR 

KEYBOARD DATA BUFFER REGISTER 
.; TELEPRINTER CSR 

TELEPRINTER DATA BUFFER REGISTER 



.ADDRESS 
; ADDRESS 
.ADDRESS 
; ADDRESS 
, ADDRESS 
; ADDRESS 
. ADDRESS 
; ADDRESS 
. ADDRESS 
.ADDRESS 
. ADDRESS 
. . ADDRESS 
, ADDRESS 
..ADDRESS 
..ADDRESS 



.Kwn-p 

.KUll-L 
.LPll 



OF ERROR VECTOR 

OF RESERVED INST TRAP VECTOR 

OF -T- BIT TRAP VECTOR 

OF 'TRACE' TRAP VECTOR 

OF 'BREAKPOINT' TRAP VECTOR 

OF lOT TRAP VECTOR 

OF POUER FAIL TRAP VECTOR 

OF EflT VECTOR 

OF TRAP VECTOR 

OF TTY KEYBOARD INT VECTOR 

OF TTY PRINTER INTERRUPT VECTOR 

OF HA/flF PARITY ERROR VECTOR 

OF PIRQ VECTOR 

OF FLOATING POINT INT VECTOR 
OF MEM MGHT error TRAP VECTOR 



OZTUD-D Tn02 DRIVE FUNCTION TIHER 
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riRCYll 30(lOHfe) 27-0CT-77 MHZ P0GE16-2 
REGISTER RSSIGNHENTS 



2002 
2003 
200^ 
200& 
2006 
2007 
2008 
200O 
20 > 
20M 
-"2 
2013 
20m 
2015 
ZOlfe 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
20214 
202S 
202& 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
203H 
2035 
2036 
2037 
2038 
2039 
ZOHC 

zom 

20^2 
20»»3 
20^^ 
20HS 
20H6 
20H7 

20H8 
20H9 
2060 
2061 
2062 
2063 
206M 
2066 
2066 
2067 



000000 
000002 
OOOOOU 
000006 
000010 
000012 

oooom 

000016 
000022 
00002H 
00C026 
000030 
000032 



000001 
000000 
000002 
000006 
000010 
000026 

oooo2^ 

000030 
000032 
000060 
000066 
000060 
000070 
000076 
000100 
000200 
OOOHOO 
001000 
002000 
OOHOOO 
020000 
OH 0000 
100000 

000000 
000001 
000002 
000003 
OOOOOH 
000006 
000006 
000007 
000010 
000020 
OOOOHO 
OOClOO 
000200 
OOOHOO 



.Tn02/TU16 INDEX VALUES 



CSl: 
UC = 
BR: 
FCs 
CS2= 
0S= 
ER = 
RS= 
OB: 
f1R = 
0T= 
SN= 
TC = 

. SBTTL 
RHCS1-CS1(R6) 
G0= 
NOP= 
RUOOFF: 
RUO: 
ORYCLRs 
UFriKs 
ERASES 
SPCFHO= 
SPCREVs 
HCHKF= 
UCHKR= 
UFUD= 
ROFUQs 
ROREVs 
\t' 
RDY= 
R16= 
fll7= 
PSEL = 
OVR: 
nCPEs 
TRE= 
SC = 

rRHCS2-CS2(R6) 
DVO= 
0V1 = 
0V2= 
DV3= 
DVH= 
DUB: 
DV6= 
DV7= 
BRI = 
PRT= 
CLR = 
IR= 
0R = 
ttDPE = 



00 
02 
OH 
06 
10 
12 

m 

16 
22 
2H 
26 
30 
32 

Tn02/TU16 REGISTER BITS 

1 
G 
2 
6 

10 

26 

ZH 

30 

32 

60 

66 

60 

70 

76 

100 

200 

HOO 

1000 

2000 

HOOO 

20000 

HOOOO 

100000 

0 
1 

2 
3 

6 
6 

7 

10 

20 

40 

100 

200 

HOO 



.CONTROL STRTUS «1 

;BUS RDDRESS REGISTER 
,FRRnE COUNT 
; CONTROL STRTUS »2 
, DRIVE STRTUS 
; ERROR REG 111 
,RTTENTION SUMMRRY 
,DRTR BUFFER REG 
;nRINTENRNCE REG 
; DRIVE TYPE REG 
;SERIRL NUKBER REGISTER 
;TRPE CONTROL REG 
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DZTUOD PU 27-0CT-77 13 17 Tn02/TUlb REGISTER BITS SEO 0067 



20B8 


001000 


HXF= 


1000 


20B9 


002000 


n A^ 

PGE = 


A A A A 

2000 


20b0 


AAti AAA 

OOHOOO 


NEH= 


HOOO 


2061 


A M A A A A 

010000 


NtD= 


10000 


2062 


A A A A A A 

020000 


UPE= 


20000 


2063 


Ala AAA A 

OH 0000 




40000 


20614 


4 AAA A A 

1 00000 


DLTs 


1 nnnnn 
IDDDDD 


206B 




nunc nc/De\ 




2066 


A A A A A 4 

000001 


5LH= 


4 

1 


2067 


A A A A A A 

000002 


DAT. 


Z 


Z068 


A A A A A 1 1 

OOOOOM 


TnK= 


ll 

H 


2069 


A AAA « A 

000010 


1 no _ 


ID 


2070 


A AAA A A 

00C020 




ZD 


207 \ 


A A A All A 

000040 


rt5= 


HD 


«.0 


AAA 4 A A 

000100 


dot- 


1 nn 
1 UU 


^0 o 


000200 


no V* 




207'* 


OOOHOU 


noD- 
UrK = 


nnn 
HUU 


20i 5 


002000 


E.0 I s 


■jnnn 


2076 


UOHOOO 


UDl - 
WKL- 


unnn 

HUUU 


Z077 


n 1 nnnn 
UlUUUU 


Mi*".! - 

nwL- 


1 nnnn 

1 UUUU 


2078 


UZUUUU 


p 1 p- 

r 1 r " 


9nnnn 

AUUUU 




r.unnnn 


rop- 


unnnn 
tuuuu 


Z08Q 


1 nnnon 
1 UUuUU 


QTQ- 


1 nnnnn 

1 UUUUU 


2081 








2082 


00000! 


1 1 C- 

I ur - 


1 
1 


ZOoi 


nnnnn^ 
UUUUU^ 


1 1 P- 

1 L K — 


L 




nnnnnu 

UUUUUH 


6MR- 


u 


Z0o3 








2086 


UUUUZU 


r n 1 - 


7n 
^u 


2087 


OOUlOO 


1 vMt — 


1 nn 

1 UU 


/* AAA 

2088 


OOOZOU 


prci pr- 


?nn 

AUU 


A AA 

2089 


OOOHOO 


nau- 


unn 

1UU 




nni nnn 
UU 1 uuu 


r ^ t " 


1000 

1 WWW 


2071 




r C 1 TM- 




AAA O 

2092 


□OH 000 


ntr - 


unnn 
tuuu 


ZU7 J 


n i finnn 




10000 


209S 


nof\f\n(\ 


np 1 = 

vr 1 — 


2QQQQ 


2096 


OH 0000 


1 IMC- 

Unl>- 


unnnn 
tuuuu 


2096 








2097 




PUMD-HP f PK ) 




^U70 


nnni nn 
uuu I UU 




100 


^099 








2100 




ounT-DT r PC 1 




2101 


nnonnn 
OOZUDu 


CPP- 


A>UUU 


2102 


n i nfxfxfx 
010000 


rH7- 


inooQ 

1 uwwu 


A 4 A ^ 

2103 


OHuODD 


1 nr 


^ uuuu 


210'4 








A 4 

2105 






A 4 

210e 


nnn fnn 
OOOJuU 




300 

wUw 




nnm^n 
uuu 


com 1= 


320 




000000 

WWW 


BP 1 200= 


0 


2109 


OOOHOO 


BP 1556= 


OOOHOO 


2110 


001000 


BP 1800= 


001000 


2111 


002000 


PE1600= 


002000 


ZUZ 


100000 


RCCL = 


100000 


2113 









Ci2TUD-D Tn02 
D2TU00 Pll 

211*4 

2115 
211b 
2117 
2118 
2119 
2120 
2121 
2122 
2123 

zi:** 

:i25 

llZt 
Z\Z^ 
Z\Zl 

^11- 



DRIUE FUNCTION TlflER 
27-0CT-77 13 17 



lOHHOO 
lOHOOO 
OOOOOH 



00S750 
177H00 
177600 

000003 
000011 
00C012 
000015 
000017 
000025 



D 

nflCYll 30(lOHb) 27-0CT-77 
TMOZ/TUlb REGISTER BITS 

, INSTRUCTION E QUOTES 
HLT= TRRP 
SCOPES EHT 
TYPE= lOT 

,t1ISCELLPNE0US EQUATES 

OUTBUF=INIT 

FRnCNTs -26b 

UROCNT: -128 
,RSCII EQUATES 

CNTRLC= 3 

HT= 11 

LF= 12 

CR= 15 

CNTRLO= 17 

CNTRLU= 25 



b 

13 



HZ PPGE 16-H 



SEQ OObS 



,OTPUT BUFFER STORT OT BEG OF PROGRflri 

,FRflt1E COUNT 
,UORO COUNT 

, BSC I I CODE FOR CONTROL C ( C) 

,fiSCII CODE FOR HORIZONTPL TAB 

,RSCII CODE FOR LINE FEED 

, BSC II CODE FOR CORRIPGE RETURN 

.PSCII CODE FOR CONTROL 0(0) 

,PSCII CODE FOR CONTROL J ( U) 



DZTUD-0 Tn02 
OZTUDO PH 



DRIUE FUNCTION TIMER 
27-0CT-77 13 \7 



2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 

2mo 
zmi 

Z\^Z 

2143 

2144 

2145 

214fe 

2147 

2148 

2149 

2160 

2161 

2162 

2163 

2164 

2166 

2156 

2167 

2158 

2169 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173. 

2174 

2176 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

218M 

2186 

2186 

2187 



000014 
000U16 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 

000042 

000046 

000052 

000060 
000062 



00017b 
00C176 000000 

000200 
000200 000137 006760 

000500 
000600 

001000 

001000 000000 

001002 177570 

001004 000000 

001006 000 

001007 000 
001010 000000 
001012 172440 
001014 000000 
001016 000020 

001066 000020 

001116 000000 

001120 000000 

001122 000 

001123 000 

001124 000 
001126 000 

001126 000 

001127 000 

001130 000 

001131 000 

001132 000 



E 

nflCYll 30(1046) 27-0CT-77 
Tn02/TU16 REGISTER BITS 

, SETUP TRRP VECTORS 



6 

13 



42 PAGE 16-5 



SEQ 0069 



000014 


sTBITVEC 


000016 


MOku 


. +4 


□00000 


1 lADH 


HHL 1 


00ZJJ4 


unon 


Tvpr 

1 Trt 


nnnnnn 
UUUUUU 


1 mon 
HOKu 


n 
u 


□OOOZb 






nnnnnn 
UUUUUU 


unon 


UQI T 


nnu \ till 
UU4 I HH 


unon 

HUKU 




UUUJHU 


unon 

MUKU 




nn 7L.CI1 
UU JbbH 


unori 

WURU 


ML 1 


UUUiHU 


HUKU 


JIU 


nnnnu ") 
UUUUH L 






UUUUUU 


UORD 


0 




:46 




013074 


UORD 


ENDRD 


000052 


=62 




000000 


UORD 


0 


000060 


=TKVEC 




003610 


UORD 


TKISR 


C00340 


UORD 


340 



SET 'T' TRAP TO TIMER ROUTINE 

PRIORITY LFWEL 7 

SET lOT TRRP TO TYPE ROUTINE 

PRIOTITY LEVEL 0 

POUER FAIL TRRP TO HRLT 

RT PFVEC+2 

SET EtIT TRAP TO SCOPE ROUTINE 

PRIORITY LEVEL 7 

SET TRAP TRAP TO HLT ROUTINE 

PRIORITY LEVEL 7 

AcTll 



,SOFTUARE SUITCH REGISTER LOC 176 
= 176 

SUREG. 0 .SOFTUARE SUITCH REGISTER 



=200 

jnp 

= 500 
STKPTR= 600 



dtlNIT 



,G0 TO START OF PROGRRn 





= 1000 




, PROGRAM 


TAGS 




PASS- 


UORD 


0 


SUR: 


177570 




SCPRDR. 


UORD 


0 


DRVNUM- 


BYTE 


0 


SLVNUM: 


BYTE 


0 


SLVPTR- 


. UORD 


0 


THBASE 


. UORD 


Tncsi 


ATI ME: 


UORD 


0 


RTIflTBL 


BLKU 


16 


GRPTBL 


BLKU 


16 


DELTin 


. UORD 


0 


OCTRLO 


. UORD 


0 


GRP- 


. BYTE 


0 


ITCNT 


BYTE 


0 


TSTNUn 


. BYTE 


0 


ERFLG 


. BYTE 


0 


PR6FL6: 


. BYTE 


0 


UNTFND 


BYTE 


0 


TYPFLG 


BYTE 


0 


NRZFLG 


BYTE 


0 


RSFLG 


BYTF 


0 



, STACK 



, SUITCH REGISTER 

.Tf102 DRIVE UNDER TEST 

,TU16 SLfiVE UNDER TEST 

, POINTER TO SLAVE TABLE (SLVTBL) BELOU 

,BASE ADDRESS OF Tn02/TU16 REGISTERS 

;CONTRINS TICK' COUNT 
,EACH ENTRY CONTAINS TIME FOR FUNCTION 
, ENTRIES ARE MADE BY 'SCOPE' ROUTINE 
, TIMES RECORDED BY 'GAP CONSISTRNCY' TEST 
,VRRIBLE DELAY 

,C«NTAINS GAP 8 (USED FOR TST 021) 

, ITERATION COUNT 

,TEST II 

, ERROR FLAG 

.PROGRAM FLAG 

,UNIT FOUND INDICATOR 



INDICATES IF DRIVE 
1/0 = YES/NO 



IS NRZ ONLY 
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Tn02/TU16 REGISTER BITS 



SEQ 0070 



7 1 RQ 
i I oO 




nni 1 7u 

UU 1 1 J~ 












nni 1 7u 


UOU~DU 






"01 




^ 1 7U 


UU \ 1 OO 


Uw 1 ~D A> 






"23 




^ 1 7 1 


nni 1 un 

UU I l''U 


n77u<tU 

U w~ 






~ 9 






nni 1 U9 

UU 1 1 1 £ 


n77U(>(> 
U J J'VOD 






"fe7 

w r 




91 


nni 1UU 

UU 11^^ 


o^uu7n 






"89 




71 QU 


nni iu(k 

UU 1 fvo 


nonnnft 

UUUUUD 




001 GITS 


BLKB 


u 


71 QC 
^ 1 73 


nni 1 cu 

UU 1 1 3~ 


nnn 

UUU 






BYTE 

Silk 


n 


71 Qfe 
^ 1 7D 




UU 1 1 30 






EVEN 




71 Q7 
^ 1 7( 


nni 1 R(> 

UU 1 1 30 


nnnnin 

UUUU 1 U 




DRUTBL- 


BLKB 


8 


1 QR 


nni 1 

UU 1 X oo 


nnni nn 

UUU 1 UU 




SI UTBL 

WW V 1 


BLKB 




— 177 


nni 7<i<. 
UU 1 ^oo 


nnni i n 

UUU 1 1 u 






BLKB 


72 


77nn 


nni 77fe 

UU 1 J ( D 


nncni 

UU^U 1 3 


nnn 

UUU 


f RL F 


BSC 1 2 


<CR XLF > 




nni uni 

UU t HU t 


1 7U 


nnn 

UUU 


w i\ w w wn 


flSC 1 z 


* 1 




nni un7 
UU itu^ 


nfiO 

UOU 


nnn 

UUU 


ECHO 

b V n V 


flSC 1 z 


'0' 


7707 

M *> •> 


nnibQ^ 


007 


000 


BELL 


flSCIZ 


<7> 


220H 


oomo7 


0B6 


000 


OflSH. 


nsciz 


1 


2205 


oomn 


OHO 




SPRCEi 


ASCI 1 




2206 


ooim2 


OOOOMO 




SPACE 


. BSCIZ 


■ 


2207 


ooi«*m 


00MH76 


coo 


RNGTRB 


flSClZ 


2208 




comco 






EVEN 





.RESERVE SPACE FOR CONUERTED DIGITS 
, TERMINATOR 

,A 0/-1 = DRIVE NOT TO BE/TO BE TESTED 
,A 0/-1 = SLAVE NOT TO BE/TO BE TESTED 
.TELETYPE INPUT BUFFER 
.MISCELLANEOUS ASCII CHARACTERS 
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221C 








SBTTL 


TinE SPECIFICATION TABLE 






2211 








,THE BELOU TABLE CONTAINS THE 


SPECIFIED FUNCTION TIMES IN TENS OF 


2212 








.niCROCESONOS 


NOTE THAT UHEN 


TIMES ARE TYPED 


THAT THEY ARE TYPED IN 


2213 








, MICROSECONDS 


(BY APPENDING A 


0) 






221>4 








, FORMAT IS 










221S 
2216 








UORO 


HAX^niN 


;TinE IN MS 


FUNCTION 


TEST i 


2217 


oom20 


000000 


000000 


STIMTBL UORO 


0,0 


. SPARE 






2218 


001>42H 


04*4560 


0*4 3740 


UORO 


18800 / 18400 


; 1 88. 0- 1 84 0 


URITE FROM BOT 


TSTOOl 


2219 


001i«30 


001666 


0015*46 


UORO 


00950. , 00870. 


.9 6-8 7 


URITE START 


TST002 


2220 


oom3t 


001572 


001522 


UORO 


00890. , 00860 


.8 9-8 5 


URITE SHUTDOUN 


TST003 


2221 


001 '♦'♦O 


002506 


001*452 


UORO 


01360. .00810. 


. 13 5-8. 1 


URITE STLDOUN 


TST004 


2222 


OOlHi^H 


0355*40 


03506*4 


UORO 


16200. , 14900. 


. 152, 0-149 0 


READ FROM SOT 


TST006 


2223 


001H50 


000500 


000*40*4 


UORO 


00320. . 00260. 


. 3. 2-2. 6 


READ START 


TST006 


222>t 


oomsH 


000721 


000651 


UORO 


00466. .00426. 


; 4. 65-4 25 


READ SHUTDOUN 


TST007 


2225 


oombo 


002506 


001*452 


UORO 


01360. .00810. 


; 13. £-8 1 


n ^ MM #> ^ Wa ^ MM* la ■ 

READ SETTLEDOUN 


TSTOlO 


2226 


oombH 


000500 


000H0*4 


UORO 


00320. . 00260. 


. 3. 2-2 6 


RD REV START 


TSTOll 


2227 


0011*70 


000562 


000512 


UORO 


00370. . 00330. 


;3 7-3 3 


RO REV SHTDUN 


TST012 


2228 


oom7»» 


002506 


001*452 


. UORO 


01360. . 00810. 


; 13 5-8 1 


RD REV STLOUN 


TST0l3 


2229 


001500 


003206 


002056 


UORO 


01670. .01070. 


. 16. 7-10. 7 


TRN RNO OLY F-R 


TST014 


2230 


M ^ Mil 

OOlSO** 


003206 


002056 


. UORO 


01670. .01070. 


; 1 6. 7-10. 7 


TRN RHO DLY R-F 


TST015 


2231 


001510 


002*412 


001666 


UORO 


01290. . 00960. 


; 12 9-9 5 


GAP SIZE STOP 


TST016 


2232 


ooi5m 


00223*4 


001522 


UORO 


01180. / 008S0. 


. t A A A r 

; 11 8-8 5 


AAA C 1 CTOT 

uHr SIZE STRT 


T5T017 


2233 


001520 


002710 


002532 


UORO 


01H80. / 01370. 


. 14. 8-13. 7 


AAA A 1 I a 

GAP SIZE INTER 


TST020 


22 3H 


001 5214 


0025*4*4 


002330 


UORO 


01380. /012>t0. 


; 1 3. 8-12. 4 


GAP CONSISHNCY 


TST021 


2235 


001530 


000000 


000000 


UORO 


M A 

0. 0 


. 0, 0-0. 0 


DUMMY 


T ^T* AO O 

TST022 


2236 


00153*4 


n/Xi Pro 

00*4552 


00*4*406 


UORO 


AAIi d A AA A 

02410. . 02310. 


; 24. 1-23 1 


DAT TIME 2006PI 


TST023 


2237 


001540 


00*45*40 


00*4 374 


UORO 


02400. . 02300. 


; 24. 0-23. 0 


OAT TIME 5566PI 


TST024 


2238 


0015'»»4 


00*45*40 


004374 


UORO 


02400. . 02300 


.24 0-23.0 


OAT TIME 800BPI 


1 3 1 U^b 


2239 


001S50 


00*t716 


004552 


UOfD 


OZslO. / 02410. 


;25. 1-24 1 


OAT TIME 1600PE 


TST026 


22>t0 


G0155H 


02356H 


023254 


UORO 


10100. .09900. 


; 101 0-99 0 


ERASE 


TST027 


22H1 


001560 


noil 11 nil 




UORO 


10500. .10300. 


; 105 0-103 0 


URT FILE MARK 


TST030 


22H2 


001 56H 


00H336 


004172 


UORO 


02270. .02170 


- 22. 7-21 7 


READ 1" TAPE 


TST031 


22«»3 


001570 


00H336 


004172 


UORO 


02270 .02170 


.22 7-21 7 


PD REV 1" TAPE 


TST032 


22«»H 
:2U5 








-NOTE TEST 31 


AND 32 REQUIPE 


PRERECORDED 8008 P > SKEU TAPE 
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2£w? 
2250 
2251 
2252 
2253 

225'4 001 57U 002602 0021* 12 

2255 GGlbOQ 002652 002506 

2256 001 60H 00273H 002532 

2257 001610 00273H 002532 

2258 00161H 00273H 002'42H 
:259 001620 002652 002260 
:2bO 00162M 002652 002260 
:2tl 001630 002652 002260 

;;b: ooi63m 002532 00226O 

:ZbZ 00i6*40 002532 002260 

.26^ 001 6HH 002532 002260 

2265 001650 002532 002260 

226b 00165U 002532 002260 

2267 001660 C02532 002260 

2268 001 b6U 002532 002260 

2269 001b"'0 0025:2 0022b0 



H 6 

nPCYll 30(10'*6) 27-0CT-77 13 H2 PAGE 16-8 
GRP TIME SPiCIFICflTION TABLE 

SBTTL GAP TltlE SPECIFICATION TfiBLE 
,THIS TRBLE CONTAINS THE GAP SIZES (IN TENS Of MICROSECONDS) FOR EACH 
,0F THE 16 GAPS RECORDED BY THE GAP CONSISTANCY TEST (TST021) 
.NOTE GAP «'S ARE IN OCTAL 



SEQ 0072 



UORD 


MAX. n 1 

1 Irlrif III 


N(lO) 


, TiflE 


IN ns(io) 


GAP 


n 


DELAY IN nSdO) 


GTIMTBL UORD 


oimo 


/ 01290 


. l** 1- 


12 9 


GAP- 


0 


0 US 


UORD 


01*460. 


/ 01350 


/ m 5- 


13 5 


GAP- 


1 


1 0 MS 


UORD 


01500. 


* 01370. 


; IS 0- 


13. 7 


GAP- 


2 


2 0 MS 


UORD 


OlSOO. 


, 01370 


; 15 0- 


13. 7 


GAP- 


3 


3 0 MS 


UORD 


01500 


, 01300. 


. 15. 0- 


13 0 


GAP- 




^ 0 MS 


UORD 


omso 


.01200. 


; m. 5- 


12. 0 


GAP- 


■6 


5 0 MS 


UORD 


omso. 


,01200. 


. m. 5- 


12. 0 


GAP- 


•6 


6 0 MS 


UORD 


om50 


.01200. 


. m. 5- 


12. 0 


GAP- 


•7 


7 0 MS 


UORD 


01370. 


.01200. 


,13. 7- 


12 0 


GAP- 


■10 


8 0 MS 


UORD 


01370. 


.01200 


. 1 3. 7- 


12 0 


GAP- 


■11 


9 0 MS 


UORD 


01370, 


.01200. 


. 13. 7- 


12. 0 


GAP- 


-12 


10 0 MS 


UORD 


01370. 


.01200 


. 13. 7- 


•12 0 


GAP- 


-13 


11 0 MS 


UORD 


01370. 


.01200. 


,13 7- 


-12. 0 


GAP- 


-IH 


12 0 MS 


UORD 


01370 


.01200 


; 1 3. 7- 


•12. 0 


GAP 


-15 


13 1 MS 


UORD 


01370. 


.01200 


.13 7- 


•12 0 


GAP 


-16 


IH 1 MS 


UORD 


01370 


.01200. 


. 13 7- 


■12 0 


GAP 


-17 


J6 1 MS 



I 
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MRCYll 30(10^fa) 27-0CT-77 13 H2 PAGE lfa-9 
TEST HEADER POINTERS 



2271 






SBTTL 


TEST HE 


2272 






.THE BELOU TABLE CONTfll 


2273 


001fa7^ 


000000 


NRMPTR UORD 


0 


227«« 


001fa7fa 


015015 


UORD 


A T001 


2275 


001700 


015037 


UORD 


R T002 


227fa 


001702 


015057 


UORD 


A. T003 


2277 


001 70H 


015101 


UORD 


A TOOH 


2278 


001706 


015125 


UORD 


A. T005 


2279 


001710 


0151147 


UORD 


A TOOfa 


2280 


001712 


015166 


UORD 


A. TOO? 


2281 


0017m 


015210 


UORD 


A TOlO 


2282 


00171fa 


015233 


UORD 


A TOU 


2283 


001720 


015255 


UORD 


A T012 


228>4 


001722 


015302 


UORD 


A T013 


22SB 


00172*4 


015331 


UORD 


A Tom 


22S6 


001726 


015362 


UORD 


R T015 


2237 


001730 


015m3 


UORD 


A T016 


2288 


001732 


015Mm 


UORD 


A T017 


2289 


00173M 


015H70 


UORD 


A T020 


2290 


001736 


015520 


UORD 


A T021 


2291 


001 7H0 


COOOOO 


UORD 


0 


2292 


001 7H2 


0155'43 


UORD 


A 1023 


2293 


0017MM 


01556'' 


UOKu 


H 1 U^H 


229M 


0017M6 


015613 


UORD 


A T025 


2295 


001750 


01563'' 


UORD 


P T026 


229fa 


001752 


015bbt4 


UORD 


A T027 


2297 


00175«4 


01570b 


UORD 


A T030 


2298 


001756 


015731 


UORD 


A T031 


2299 


001760 


015~5'^ 


UOPD 


A T032 



DUfWY TEST 
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SEQ Q07H 



2301 




2302 




2303 




230H 




2305 




2306 


001762 


2307 


001764 


2308 


001766 


2309 


001770 


2310 




2311 


001772 


2312 


002000 


2313 


002002 


231*4 


0020!0 


:3i& 


002016 


2316 


002024 


2317 


002026 


2318 


002032 


2319 


002036 


2320 


002042 


2321 


002046 


2322 




2323 


002052 


232H 


002056 


2325 


002064 


2326 


002070 


2327 


002076 


2328 


002104 


2329 


002106 


2330 


002110 


2331 


002116 


2332 


002120 


2333 


002126 


2334 


002132 


2335 


002140 


2336 


002142 


2337 


002144 


2338 


002152 


2339 


002154 


:3i40 


002162 


234 1 


002164 


2342 


002170 


2343 


002172 


2344 


002176 


2345 


002202 


2346 


002206 


2347 


002214 


2348 


002222 


2349 


002226 


2350 


002230 


2361 


002232 


2362 


0022HQ 


2363 


002242 


2354 





000000 
000000 
000000 
000000 



005037 
012737 
004737 
042737 
122737 
001001 
000751 
122737 
001012 
012737 
004737 
022737 
001034 
000437 
122737 
003004 
122737 
002003 
000004 
000746 
006337 
006337 
006337 
142737 
153737 
005337 
001756 
000715 
013777 
000740 
000207 



< CHECK SUITCH REGISTER ROUTINE CHECKS FOR G TO PLLOH CHRNGING 

.OF LOC 176 

.CALL IS BY URY OF JSR PC.CKSUR 
AOCRTIONS USEO 
TIB UORD 
TEMPST UORD 



COUNT 
ROSU- 



UORD 
UORD 



0 
0 
0 
0 



022737 


000176 


001002 


CKSUR 


cnp 


fSUREG.SUR 


001120 








BNE 


OUT 


013737 


177562 


001762 




MOV 


TKB,TIB 


042737 


177600 


001762 




BIC 


1177600. TIB 


022737 


000007 


001762 




cnp 


»7.TIB 


001106 








BNE 


OUT 


000004 


015775 






TYPEA 


CNTG 


000004 


016002 




CNTLU- 


TYPEA 


SUR 


017702 


176740 






nov 


dSUR.R2 


004737 


002632 






JSR 


PC.TYPOCT 


000004 


016011 






TYPE A 


NEM 



001764 
000007 
002244 
177600 
000025 



000015 

000200 
002362 
000007 



00C060 



001766 

001762 
001762 



IS 



35 

001 7b2 25 

001770 

001766 

85 

001762 45 



000067 001762 

016021 55 

001764 65 

001764 

001764 

000060 001762 
001 762 001764 
001766 



001764 176642 75 
OUT 



CLR 

nov 

JSR 
BIC 
CMPB 
BNE 

BR CNTL 

CMPB 

BNE 

nov 

JSR 

cnp 

BNE 
BR 

cnPB 

BGT 

cnPB 

BGE 

TYPE.L 

BR 

flSL 

flSL 

RSL 

BICB 

BISB 

DEC 

BEQ 

BR 

nov 

BR 
RTS 



TEnPST 
•7 COUNT 
PCTTIN 
•177600, TIB 
«26,TiB 
25 

U 

«15.TIB 
45 

1200. RDSU 
PCTCRLF 
» 7- COUNT 
75 

OUT 

«60, TIB 
55 

167, TIB 
65 

QUEST 
35 

TEnPST 

TEHPST 

TEHPST 

•60/ TIB 

TIB, TEnPST 

COUNT 

55 

15 

TEMPST. iSWR 

85 

PC 



,SOFTURRE SUITCH REG PRESENT 

,N0, GET OUT 
,RND STRIP OFF 

,THE GRPBRGE 
, IS IT R < G> 



,G0 RERO R CHRRRCTER 
; STRIP OFF GRRBRGE 
, I S I T R U? 
,BRRNCH IF NOT 
,STqRT OVER 
, IS IT fl <CR>'' 
, BRANCH IF NOT 

,ECHO IT WITH <Lr> 
,UAS IT FIRST CHARACTER 
, CHANGE SUR IF NOT FIRST ONE 
,GET OUT 



.START OVER IF NOT LEGAL CHARACTER 

,GET NITTY-GRITTY 
,ONLY UANT 6 DIGITS 

; CHANGE SUITCH REGISTER CONTENTS 



K b 

02TUD-0 Tn02 DRIVE FUNCTION TiflER tIflCYll ZOdQi^b) 27-0CT-77 13 PAGE 17 

D2TUDD Pll 27-OCT-77 13 17 TEST HEADER POINTERS SEQ 0076 



2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

236H 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

23-2 

2373 

( 1 

(1 

(1 

( 1 

(1 

(i; 
(1 
(1 
(1 
(1 
(1 

vl 

(1 
(t; 
(1 
(1 
(1 
( 1 
( 1 
( 1 
< 1 
t 

(1 
( 1 
( 1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
( 1 
(1 
( 1 
' 1 
( 1 



,TTY READ SUBROUT iNE«S«$l«X«l« 



0022HH 
002250 
00225H 
002260 
00226H 
002270 
002272 
002300 
00230H 
002306 
0023m 



002316 
002317 
002320 

002321 
002322 
00232H 
002326 
002327 
002330 



00233H 
002336 
002342 
002350 

00235M 
002360 
002362 
002366 
002372 
002374 
002H00 
002>402 
002404 
002406 
002410 
002412 

002414 
002420 



005037 
005037 
005037 
005237 
105737 
100375 
013737 
105737 
100375 
113737 
000207 



177560 
177562 
001762 
177560 
177560 

177562 001762 
177564 

001762 177566 



TTIN- 



TTINl 



TTIN2 



CLR 


TKS 


CLR 


▼ 1/ B 

TKB 


CLR 


TIB 


INC 


TKS 


TSTB 


TKS 


BPL 


TT 1 Nl 


nuu 


TV Q T 1 Q 

1 KB / 1 lb 


TSTB 


TPS 


BPL 


TTIN2 


tlOUB 


TIB^TPB 


RTS 


PC 


SBTTL 


PROGRfln 


SBTTL 





TYPE SUBROUTINE 

ROUTINE TO TYPE ASCII MESSAGE MESSAGE flUST TERfllNATE UITH A 0 BYTE 
,,THE ROUTINE UILL INSERT A NUOBER OF NULL CHARACTERS AFTER A LINE FEED 
.,CALL TYPE ,;A TRAP TYPE INSTRUCTION 

MESADR ,,hESADR IS FIRST ADDRESS OF ASCIZ STRING 







, , TAGS 


USED BY 


THE TYPE ROUTINE 


BELOW 


00001 1 






SHT=11 




HORIZONTAL TAB 


000 




5NULL. 


. BYTE 


0 


CONTAINS NULL CHARACTER 


002 




SFILL 


. BYTE 


2 


CONTAINS I OF FILLER CHARACTERS 


000 




STPFLG 


. BYTE 


0 


CONTAINS TELEPRINTER AVAILABLE FLAG 










/»U/Jrr - rIvHiL/nUI HwHIL 


000 




STKFLG 


. BYTE 


0 


CONTAINS KEYBOARD AVAILABLE FLAG 


177564 




STPS- 


. UORD 


177564 


ADDRESS OF TLEPR INTER STATUS REGISTER 


177566 




5TPB. 


. UORD 


177566 


,;ADORESS OF TELEPRINTER DATA BUFFER 


000 




SCHARCNT . BYTE 


0 


CONTAINS X OF CHARS TYPED 


000 




SCNTRLO. BYTE 


0 


CONTAINS CONTROL 0 CHAR (IF TYPED) 


005015 


000 


SCRLF 


ASCIZ 


<16><12> 




002334 






EVEN 






010046 




TYPE 


flOV 


RO, -(SP) 


-.SAVE RO 


017600 


000002 




MOV 


J2(SP),R0 


,,GET MESSAGE ADDRESS 


062766 


000002 000002 




ADD 


I2,2(SP) 


, .ADJUST RETURN PC 


105037 


002327 




CLRB 


SCNTRLO 




105737 


002327 


TYPEl 


TSTB 


SCNTRLO 


BRANCH IF CONTROL Of 0) UASN'T TYPED 


001410 






BEQ 


TYPE2 




000004 


002330 


TCRLF 


TYPE, SCRLF 


,,TYPE <CR><LF> 


105737 


001770 




TSTB 


RDSU 




1 00006 






BPL 


TYPE3 




005037 


001770 




CLR 


RDSU 




000207 






RTS 


PC 


,,PUSH CHARACTER TO BE TYPED ONTO STACK 


112046 




TYPE2. 


novB 


(RO)*,-(SP) 


001003 






BNE 


TYPE4 


BRANCH IF NOT THE TERMINATOR 


005726 






TST 


(SP)* 


,;POP TERMINATOR CHAR OFF THE STACK 


012600 




TYPE3 


flOV 


(SP)*,RO 


..RESTORE RO 


000002 






RTI 




..RETURN TO CALLER 


122716 


000011 


TYPE4 


CUPS 


SSHT, (SP) 


BRANCH IF HOR ZONTflL TAB <HT> 


001445 






BEQ 


9S 





DZTUO-D Tn02 ORIUE FUNCTION TIMER 
DZTUOD Pll 27-0CT-77 13 17 



nflCYll 30(10Mb) 27-0CT-77 
TYPE SUBROUTINE 



& 

13 



PfiGE 17-1 



SEQ 0076 







002H6I4 






JSR 


PC/6f 


002M2(> 


122726 


000012 




Z% 


cnPB 


•12, (SP)* 


002M32 


001350 








BNE 


TYPEI 


QQ2U3I4 


0137t6 


002316 






nou 


SNULL, -(SP) 


002HH0 


105366 


000001 




MS 


OECB 


1 (SP ) 


002>4>4>4 


002770 








BLT 


3f 




00H737 


002i«5it 






JSR 


PC,5S 


0021(^2 


000772 

WW%rf ■ ■ mm 








BR 






105777 


I776t2 




5% 


TSTB 


alSTPS 


002'«b0 

\J \J mm " w 


100375 








BPL 




002M(>2 

U U M ( W mm 


122737 


000017 


002327 




cnPB 


«17, dISCNTRLO 


002'«70 


oomo3 








BEQ 


6S 


002H72 

^J\J mm 1 mm 


116677 


000002 


1776214 




novB 


2(SP),a*TPB 


002500 


\117iih 


000015 


000002 


6$ 


cnpB 


«16,2(SP) 


002506 


001003 








BNE 


75 


002610 


106037 


002326 






CLRB 


SCHBRCNT 


0025m 


000H06 








BR 


85 


002516 


122766 


000012 


000002 


75 


cnPB 


IH2,2(SP) 


00252H 


002002 








BGE 


85 


002526 


105237 


002326 






INCB 


5CHflRCNT 


002532 


000207 






8S 


RTS 


PC 



,.TYPE CHORflCTER 

CHECK IF CHnRACTER URS R LINE FEED 
,,BRRNCH IF NOT LINE FEED 
.,GET • OF FILLERS REQUIRED RND FILLER 
..CHRRRCTER 

,,DECR£nENT FILLERS REQ COUNT 

,,8RRNCH IF NO MORE FILLERS RRE REQUIRED 

,,TfPE FILLER CHRRflCTER 



,,URIT FOR OUTPUT DEUICE 

CHECK IF CONTROL 0 URS TYPED 
,,ST0P TYPING riESSRGE IF 0 URS TYPED 

OUTPUT CHRRRCTER 
,;BRRNCH IF NOT <CR> 

,;CLERR CHRRRCTERS TYPED COUNT 

,,BRRNCH IF <LF> Oft 'NULL' 

;,INCREnENT CHRRRCTER TYPED COUNT 



HORIZONTAL TAB <HT> PROCESSER 



002534 112716 OOOOHO 

0025H0 004 < 7 002454 

002544 132737 000007 002326 

002552 001372 

002554 106726 

002556 00067b 



95 
105 



novB 

JSR 

BITS 

BNE 

TSTB 

BR 



«40, (SP) 
PC, 55 

«7,5CHRRCNT 
105 

(SP) + 
TYPEI 



,L0RD 'SPRCE' 
;TYPE 'SPACE' 

, TYPE SPACES UNTIL 0 MULTIPLE 
,0F 8 CHRRRCTERS HOVE BEEN TYPED 
,POP SPRCE 
.GET NEXT CHRRRCTER 



2374 






2375 






2376 






2377 


002560 


010546 


2378 


002562 


010446 


2379 


002564 


010346 


2380 


002566 


010246 


2381 


002570 


010146 


2382 


002572 


010046 


2383 


002574 


0166H6 


2384 


002600 


000207 


2385 






2386 






2387 






2388 


002602 


012666 


2389 


002606 


012600 


2390 


002610 


012601 


2391 


002612 


012602 


2392 


0026m 


012603 


2393 


002616 


012604 


2394 


002620 


012605 


2396 


002622 


000207 


2396 






2397 







, SUBROUTINE TO 


SAVE GENERAL REGISTERS 


ON THE STACK 


,CflLL. SAVE 






SAVE: MOV 


R5,-(SP) 


,SAVE REGISTERS 


nov 


R4,-(SP) 




nov 


R3, -(SP) 




nov 


R2, -(SP) 




MOV 


RI.-(SP) 




nov 


RO/-(SP) 




nov 


14(SP),-(SP) 


;6ET RETURN PC 


RTS 


PC 


; RETURN 



.SUBROUTINE TO RESTORE GENERAL REGISTERS FROO THE STACK 
,CALL 

.nOVE RETURN PC 
.RESTORE REGISTERS 



RESTORE 




. nov 


(SP)*. 14(SP) 


nov 


(SP)+.RO 


nov 


(SP)*.R1 


nov 


(SP)+.R2 


nov 


(SP)*.R3 


nov 


(SP)*/R4 


nov 


(SP)*,R5 


RTS 


PC 



RETURN 



SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 



D2TUD-D TnOZ DRIUE FUNCTION TItlER 
02TU0D Pll 27-0CT-77 13 17 



2398 








2399 








2*400 








2*401 


002624 


1 10637 


AAa A 7n 

001130 


2>402 


002630 


000402 




2^03 








2>40'4 








2M05 








2>406 








2407 








2408 








2409 


002632 


105037 


001 1 30 


2410 


002636 






1 1 ) 


002636 


004737 


AAOC /. 

002560 


241 1 


002642 


0\ « A ^ All 

012704 


001 146 


2412 


002646 


MAP A A 7 

006003 




2413 


002660 


UlUZOi 




2414 


002652 


006302 




2415 


002654 


006103 




2416 


002666 


01 2700 


000006 


2417 


002662 


C00404 




2418 








2419 


002664 


AA^ 

006302 




2420 


002666 


006103 




2421 


002670 


OOsJOl 




2422 


002672 


QOl 374 




2423 


002674 


□1Z701 




2424 


002700 


1 16JZ4 


nni 1 7IA 


2426 


002704 


006003 




2426 


002706 


0U930U 




2427 


002710 


QUI 369 




2428 


0027 IZ 


« OC7^7 

105737 


QUI 1 


2429 


ODZr lb 






24 jO 


□OZ/ZU 


nnnnnu 


UU I 1 tb 


2431 


00Z7Z4 






( 1 ) 


Q0Z<'Z4 


UUH t if 


nn9<«n7 

UU^bUA 


2432 


OOZ/iO 


UUU^Ur 




2433 








24 34 








24 35 








2436 








oil 7^ 

2437 








^1* 70 

2438 








2439 


\j\iLf 


I 1 Ub 


nni 1 in 


Z44U 


UUZr Jb 






244 1 








2442 








2443 








2444 








2445 








2446 


00Z7H0 


\ ncn 77 


nni 1 7n 
UUI 1 ^u 


Z44r 








(1) 


002744 


004737 


002560 


2448 


002760 


005000 




2449 


002762 


01270H 


001146 


2460 


002766 


006003 





n 6 
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TYPE SUBROUTINE 



SEO 0077 



,CflLL now 

JSR 

CNVOCT novB 
BR 



NUtlBER.RZ 
PCCNVOCT 

SP. TYPFLG 
CNVTO 



,nOVE NUnBER TO R2 



,SET 00 NOT TYPE FLAG 



.S9TTL OCTAL TO ASCII 4 TYPE ROUTINE 

, SUBROUTINE TO CONVERT OCTAL NUtlBER TO ASCII AND TYPE IT OUT 



, CALL nov 

JSR 

TYPOCT CLRB 
CNVTO 

JSR 

now 

CLR 

nov 

\% ASL 
ROL 

MOV 
BR 



2* 



3S 



ASL 
ROL 
DEC 
BNE 

nov 
novB 

CLR 

DEC 

BNE 

TSTB 

BNE 



NUMBER. R2 
PC. TYPOCT 

aiTYPFLG 

PC. SAVE 

«OOIGITS.R4 

R3 

R2.R1 

R2 

R3 

«6.R0 
3S 

R2 
R3 
Rl 
2t 

13. Rl 

DIGTnB(R3). (R4)* 

R3 

RO 

2S 

WTYPFLG 
44 



TYPE,00IGITS 



4S 



JSR 
RTS 



PC. RESTORE 
PC 



.PUT i IN R2 
.CALL ROUTINE 

;SET TYPE FLAG 

.SAVE REGISTERS ON THE STACK 

.SET PTR TO OUTPUT 

;R3 MILL CONTAIN OCTAL DIGIT 

.GET ff TO BE TYPED 

.SHIFT 11 

.SET DIGIT COUNTER 



.SHIFT I 3 PLACES LEFT 



.SET SHIFT COUNTER 

,nOVE ASCII EOUIV TO OUTPUT 

;DECREnENT DIGIT COUNT 
.GET NEXT DIGIT 
;BRANCH IF ASCII IS 
.NOT TO EE TYPED 



.RESTORE REGISTERS FROM THE STACK 



.SUBROUTINE TO CONVERT OCTAL DATA TO DECItlAL ASCII 
.CALL nOV NUMBER. R2 .«OVE NUtlBEP TO R2 

JSR PC.CNVOEC 

CNVDEC MOVB SP.ilTYPFLG .SET 00 NOT TYPE FLAG 

BR CNVTO 
SBTTL OCTAL TO OECIflAL &. TYPE ROUTINE 

.THIS ROUTINE CONVERTS AN OCTAL I TO OECIOAL ASCII AND TYPES IT OUT 
.CALL HOV NUtlBER. R2 .PUT » IN R2 

JSR PCTYPOEC .CALL ROUTINE 



TYPDEC CLRB 
CNVTD 

JSR 
CLR 

nov 

IS CLR 



aiTYPFLG 

PC. . SAVE 
RO 

«0DlGITS.R4 
R3 



.SET TYPE FLAG 

.SAVE REGISTERS ON THE STACK 
,R0 IS INDEX TO DECinAL CONSTANT 
.SET OUTPUT PTR 
,R3 CONTAINS DECinAL DIGIT 



D2TUD-D Tn02 DRIVE FUNCTION TIMER 
D2TU0D PU 27-0CT-77 13: 17 



2HB1 

2H63 
2H5H 
2H66 
2HS6 
2H57 
2it68 
2H69 
24 60 
2H61 
2it62 
2H63 
2H64 
(I) 
2it6B 
2>t6b 
2467 
2H68 
2it69 
2H70 
2H71 
2H72 
2H73 
2M7H 
2H75 
2H76 
2H 77 
2H78 
2H79 
2H80 
2H81 
2H82 
2H83 
2H8it 
2H86 
2486 
2H87 
21488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2600 
2S01 
2602 
2603 
2604 
2605 



002760 
002764 
002766 
002770 
002772 
002776 
003002 
003006 
003012 
003014 
001020 
003024 
003026 
003032 
003032 
003036 

003040 
003042 
003044 
003046 
003060 
003062 



003064 
003066 
003060 
003062 
003064 
003066 
003072 
003076 
003102 
003106 
003112 
003116 
003122 
003126 
003132 
003136 
003142 
003144 
003146 



166002 

103402 

006203 

000773 

066002 

116324 

062700 

006 'H 

00136 

112724 

106737 

001002 

000004 

004737 
000207 

023420 
001760 
000144 
C00012 
000001 
000000 



010246 
010346 
006302 
006302 
010203 
000004 
016302 
004737 
000004 
016302 
004737 
000004 
000004 
013702 
004737 
000004 
012603 
012602 
00C207 



003040 



003040 
001134 
000002 
003040 

000060 
00U30 

001146 

002602 



014775 
001420 
002740 
001407 
001422 
002740 
001414 
016005 
001014 
002740 
001376 



MflCYll 



21 



3S 



4S 



30(1046) 
OCTAL TO 

SUB 
BLO 
INC 
BR 
POD 

novB 

POD 
TST 
BNE 

novB 

TSTB 
BNE 

TYPE.OD 
JSR 



N 

27-0CT-77 
DtCinflL I 



6 

13 42 PPGE 
TYPE ROUTINE 



DC0NST(R0).R2 
3t 
R3 
2f 

0C0NST(R0).R2 
0IGTflB(R3)/ (R4)4 
12. RO 
OCONST(RO) 
If 

••0, (R4)+ 
aiTYPFLG 
4t 

IGITS 

PC, RESTORE 



17-3 



, SUBTRACT DECIMPL CONSTANT UNTIL 

, INPUT I GOES NEGATIVE 

; KEEPING TRACK OF SUBTRACTIONS 

;A0D BACK CONSTANT UHEN NEGATIVE 

;nOVE ASCII EQU I V.LENT 

,NEXT CONSTANT 

, UNTIL ALL CONSTANTS DONE 



SEQ 0078 



AAST DIGIT IS 0 
, BRANCH IF ASCI I 
,NOT TO BE TYPED 



IS 



, RESTORE REGISTERS FROM THE STACK 



RTS 


PC 


DCONSr. . UORD 


10000 


UORD 


1000 


UORD 


100 


. UORD 


10 


UORD 


1 


MORD 


0 


SBTTL 





TYPE SPECIFIED 
THIS SUBROUTINE OUTPUTS THE TIME SPEC 
AND ALSO THE ACTUAL TIME RECORDED (AT 
FORMAT OF LINE TYPED 



/TERMINATOR 

TIMES ROUTINE 
IFICATIONS FOR THE TEST 
IME) 



RANGE=<AAAAAA-BBBBBB> 



UHERE. AAAAAfl IS MAXitlUM TIME 

BBBBBB IS tllNIMUM TIME 
CCCCCC IS ACTUAL TIME 
CALL nOVB TEST NUMBER, R2 ; LOAD 
MOV •TmE,dlATIME 
JSR PCOUTSPC 
OUTSPC MOV R2,-(SP) 
MOV R3,-(SP) 
ASL R2 
ASL R2 
MOV R2/R3 
TYPEA RNG 

MOV STIMTBL(R3),R2 
JSR PCTYPOEC 
TYPE, DASH 

MOV STIMTBL+2(R3),R2 

JSR PCTYPDEC 

TYPE.ANGTAB 

TYPE A. ACT 

MOV dlATmE,R2 

JSR PCTYPDEC 

TYPE,CRLF 

MOV (SP)*,R3 

MOV (SP)*/R2 

RTS PC 



ACTUALsCCCCCC 

FOR TEST (STIMTBL(TSTNUMX4)) 
FOR TEST (STIMTBL(TSTNUMX4*2)) 
RECORDED BY TEST (AT IME) 
TEST NUMBER 

,MOVE TIME TO ATIME 



,SAVE R2 I R3 OH THE STACK 

, MULT I PLY TEST « TIPiP.S 4 
,T0 FORM INDEX INTO STIMTBL 
;R3 CONTAINS INDEX INTO TABLE 

,GET MAXIMUM SPEC TIME 

; CONVERT TO DECIMAL & TYPE 

,GET MINIMUM TIME 
•CONVERT TO DECIMAL & TYPE 



,GET ACTUAL TIME 

; CONVERT TO DECIMAL I TYPE 



, RETURN 



SBT-'L 



TYPE GAP TIMES SUBROUTINE 



D2TU0-0 TI102 ORIWE FUNCTION TiriER 
DZTUOO Pll 27-0CT-77 13 17 



2606 
2B07 
2508 
2609 
2610 
2611 
2612 

2613 003160 0102H6 

261<4 003162 0103U6 

2616 00316t 113703 

2616 003160 006303 

2617 003162 006303 

2618 00316H OOCQGH 

2619 003170 016302 

2620 00317^ 00H737 

2621 003200 OOOOOH 

2622 00320H 016302 

2623 003210 00H737 

2624 0032 m 000004 
2626 003220 000004 

2626 003224 013702 

2627 003230 004737 

2628 003234 000004 

2529 003240 113702 

2530 003244 004737 
2631 003250 000004 
2532 003254 012603 
2933 003266 012602 
2634 003260 000207 
2536 

2536 
2637 
2538 

2539 003262 

(1) 003262 004737 

2540 003266 012700 

2541 003272 012701 

2542 003276 005011 
2643 003300 005061 

2544 003304 122710 

2545 003310 001414 

2646 003312 112002 

2647 003314 042702 

2548 003320 012703 

2549 003324 00631 1 
2660 003326 006161 

2551 003332 005303 

2552 003334 001373 

2553 003336 050211 

2554 003340 000761 
2565 003342 

(1) 003342 004737 

2556 003346 000207 
2567 
2568 
2659 



nflCYii 



30(1046) 
TYPE GRP 



B 7 

27-0CT-77 13 42 
TinES SUBROUTINE 



PAGE 17-4 



SEQ 0079 



THIS SUBROUTINE IS USED TO TYPE THE SPECIFIED GRP SIZES (RECORDED IN 
TST021) IT IS CRLLEO BY THE GHPOK ROUTINE IF THE GRP SIZE IS OUT OF 





/ KHNut 


II 1 n Tur 

UlH THE 


HLT KOUTINt (HLT^Z). 






< CHLL- 


nouB 


iuHr / uHr 


/ LOHU uHr m InlU uHr 






now 


> T 1 Mr QT 1 Mr 

WT lnc,> HI int 


/ LOHU HL 1 UHL 1 1 nc 1 D 1 0 nil nc 






1 CD 


PC/ OUiyRr 






OUTuHr 


MAI/ 

now 


^ ( CO \ 


/ oHWL rinu K J 






MOV 


R3.-(SP) 




001 122 




riOVB 


GRP,R3 


tic T ROD • 

/ ub 1 UHr m 






RSL 


R3 








RSL 


R3 




n « U '7'7C 

[JlHffb 




TYPE A 


RNG 




001674 




rtov 


GTmTBL(R3)/R2 


HfT MOV TIMr 






JSR 


PCTYPDEC 


/ L \jn VLi\i IV/ uc^i rink oi i i r l 


U014Ur 




TYPE.DflSH 




nn A eye 
UUlbt'b 




nov 


GTIMTBL+2(R3),R2 


/ UL 1 1 1 1 il 1 1 1 Ik 






JSR 


PCTYPDEC 




nn 1 ii 1 u 
UUiH I** 




TYPE,RNGTflB 


TYPP ( 

/ 1 1 r t \ 


nt cnnc 
□lbUU3 




TYPE,L. 


OCT 




nn 4 n 1 ii 
UUIUIH 




nov 


d<RTinE.R2 


RFT RrTIIRl TIHF 


002740 




JSR 


PCTYPDEC 


.CONVERT TO DECIMAL 8. TYPE 


014464 




TYPE.E 


GAP 




nm 1 
QUI 1 ZZ 




novB 


atGRP,R2 


• (ier (top g 
. UL 1 unr ft 


UUZb JZ 




JSR 


PC.TYPOCT 


.TYPE GAP 9 


nni 77f. 

UU 1 J r D 




TYPE.CRLF 








MOV 


(SP)*-R3 


.RESTORE R3 AND R2 






nov 


(SP)+,R2 








RTS 


PC 








. SBTTL 


flSCM TO OCTRL 


CONVERT SUBROUTINE 




.SUBROUTINE TO 


CONVERT flSCH DflTfl TO OCTAL CONVERTED OCTAL DRTR 




, IS LEFT IN OCTflLO <15-00>. 






CNUTRO- 








OUZbeu 




JSR 


PC SAVE 


.SAVE REGISTERS ON THE STACK 


QUI Z66 




MOV 


IINBUF,RO 


.SET PTR TO flSCi 1 DATA 


001120 




nov 


»0CTRL0,R1 


.GET ADDRESS OF OCTAL DATA 




CLR 


(Rl) 


.CLEAR OUT OLD OCTAL DATA 


uuuuuz 




CLR 


2(R1) 




nnnn < c 
UUUU I b 


IS 


CflPB 


ICR. (RO) 


;<CR> TERMINATES INPUT 




BEQ 


3t 








novB 


(R0)*,R2 


.GET "OCTAL" DATA 


177770 




BIC 


«177770.R2 


.STRIP UNUSED BITS 


000003 




nov 


«3.R3 


,SET SHIFT COUNT 


25- 


RSL 


(Rl) 


.SHIFT LAST 


nnnnn^ 
uuuuuz 




ROL 


2(R1) 


.OCTAL DIGIT 






DEC 


R3 








BNE 


2t 








BIS 


R2. (Rl) 


.AND INSERT THIS DIGIT 




Zi 


BR 


1% 


.GO GET NEXT DIGIT 


002602 


JSR 


PC. RESTORE 


.RESTORE REGISTERS FROM THE STACK 




RTS 


PC 


.RETURN 



THE 



SBTTL PUBLISH SUBROUTINE 

PUBLISH SUBROUTINE AVERAGES THE RECORDED 



TIMES FOR EACH TEST IT- 



C 7 

DZTUD-D Tn02 DRIUE FUNCTION TIMER MflCYll 30(l0^6) 27-0CT-77 13 PAGE 17-5 

02TUDD Pll 27-0CT-77 13 17 PUBLISH SUBROUTINE SEO 0080 



2bo0 








.ERRTION (IF 16 


ITERATIONS) AND PLACES THE AVERAGE 9ESULT IN ATIMC' 




Ztfel 








, IT TYPES THE NflHE OF THE FUNCTION THBT URS TinED, THE TIME SPEC- 












, IFICRTION AND 


THE ACTUAL TIME 






2563 


















Z5b4 


003350 






PUBL ISH 










( 1 ) 


003350 


nnii T T9 
□□H7J7 


002560 




JSR 


PC> . SAVE 


/ SnVt KtuldTLRd ON THl dTRCK 




2565 


00335H 


012700 


nn 4 n 4 £. 

001U16 




MOV 


MATiMTiii nn 

XRT InTBL/ RO 


T TAB 1 c onnsf CC ^ auto i ki i t i c 




ZS66 


003360 


4 4 770 4 

1 1 3701 


nn 4 4 o T 

001 123 




MOV/B 


«l ITCNT/ Rl 


* T a AP P UTB IPC / ^ 1 If P kJ B V 1 TP O AT 1 AU 

;uET 1 Or lNTKIES (uIVlN BY ITtRHTION 


^ Al IkjT \ 


OC / 

2567 


00336*4 


1 22701 


000001 




CMPB 


M 4 & 4 

11/ Rl 


, D RANCH IF SINGLE ITLRATION 




2568 


003370 


Cjm23 






6EQ 








2569 


003372 


nnf nn o 

005002 






r 1 D 
CLK 


R2 


, CLEAR SUM REGISTERS 




2570 


nn 7 77ii 
0033rH 


oocnn7 
UUbOOi 






r 1 D 
LLK 








2571 


003376 


122701 


nnnn on 

000020 




Lnr D 


MAC 01 

nib / K 1 


■ DpQuru ir 1^ iTrDQTinuc 
, DnHnLn Ir is i ilkhi lurid 




Zbi'Z 


f n Til rto 


nn 4 ii n^ 






or o 


1 £ 










oonnnn 






nHL 1 




■ ITPPQTIAM rnilMT MiCT RP 1 OP 
, 1 1 LRn 1 1 un Luuni nud i dl i un 


1 ft 

1 D 






UUUr f ( 






DO 




n/i M/iT ruDuKC pnciT np cuii 


















UUriJ TPCT IC DliklMIMR 

, Hncn Is Kunn 1 nu 




^C7£. 


















Zb*'. 


nn 7u A n 


nt.'^nn'? 




1 6 


HUU 


t on ) X 09 


,SUn INDIVIDUAL TIMES 




2578 


QU3'4 ! Z 


nnccn7 
UObbOi 






onr 

HUL 


P 7 






^50 70 


nn7L» 1 


UUb 1 








0 1 






^boU 


00 711 i L. 


nn 1 77U 
UU 1 o/H 






AMP 


1 C 

1 V 






2bo 1 


















^bo^ 


UU U7 


ni ■77nn 


nnnnnu 


tLs 


nuv 


tb DD 






Zboj 




nnt^m 

UUD^U.3 




75 


OCR 


R7 


, SHIFT TIME IN R3 & R2 H PLACES 


ZboH 


007U 9t 


uubuuz 






ROB 


R9 


;RIGHT : DIVIDE BY 16 




Zbob 


00 7U 7n 


nnt 7nn 

UU3 JUU 








RQ 






Zbob 


nn7ii It 


nni 77U 

UU I Jf 7 






RNP 
DrlL 


7C 








UUoM J"* 


U 1 U^J' 


nni nil* 

UU 1 U 1 7 




MOW 

nuu 




.MOVE AVERAGED TIMES 




Zboo 


















Z907 


nn 711 un 


1 1 77nn 


nni 1 9ii 

UU 1 1 




nous 


AtT^TNUn. 00 
Vw 1 d 1 nufl 1/ P u 


,GET TEST i 




2590 


□03HHH 


nnt7nn 






RSL 


RO 






Zb7i 


OOTtltlC 


ni tn77 

Ul OU J I 


nnic.7u nn7bcc> 




MOW 




■GET TEST NAME STRING ADDRESS 






UU J^D" 


nnnnnu 

UUUUU7 






TYPE 








2593 


003H56 


000000 




5S 


UORD 


n 

U 


;GET TEST K 




259'4 


OOjHbO 


4 4 77n^ 

1 1 3702 


no 4 1 oil 




MOVB 


AITCTMIIH 09 
•f 1 9 1 nuri/ n<p 




Z595 


nn Til 


OOli 7 77 


no7ncii 
UUJUbH 




JSR 


PC.OUTSPC 


/OUTPUT TIMES 




2596 


nn Til Tn 

003H /O 


nnu 7 77 
00H737 


00'7£.00 

UOZbOZ 




JSR 


PC, RESTORE 


, RESTORE REGISTERS FROM THE STACK 


2597 


003"474 


000207 






RTS 


PC 






2598 




























. SBTTL 


INPUT 


SUBROUTINE 




ZbUU 








, SUBROUTINE TO 


GET TTY INPUT 






ZbUl 








,CflLL 


JSR 


INPUT 






2602 








, INPUT 


DRTfl IS 


RETUNEO IN BUFFER BEGINNING AT IN8UF 




2603 
ZbUH 


nn Tu 7t 


n 1 nnii 

UlUUHO 




INPUT 


MOV 


RO, -(SP) 


;SAVE RO ON THE STACK 




ZbUb 


nn7cnn 
□UJbUU 


ni '97nn 


nn 1 vui. 
uui Zbe 


IS. 


MOV 


»IN6UF,R0 






ZbUb 


nnTcnii 
UUJbUM 


1 nc777 

1 U3r it 


1 77Cfcn 

1 I ^SDU 


2S 


TSTB 


dlTKS 






2607 


nn 7c 4 n 


4 nn 77C 
1 UUJ7b 






BPL 


2f 






Z6UB 
7f>n9 




1 137H6 


\7?S(>2 




MOVB 


aiTKB,-(SP) 


,GET CHARACTER 




2610 


003516 


0H2716 


000200 




6IC 


•200, (SP) 


/CHECK RUBOUT 




2611 


003522 


122716 


0001 77 




CMPB 


•177, (SP) 




2612 


003526 


001 aoH 






BNE 


3« 


/REMOVE CHARACTER FROM INPUT 




2613 


003530 


12H026 






CMPB 


-(RO), (SP)+ 




261>» 


003532 


OOOOOH 


oomol 




TYPEBKSLSH 







DZTUO-D Tn02 DRIVE FUNCTION TIMER 
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D 7 
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SEQ 0081 





nr» 7c 7£. 
uUJb J6 


nnn*^£. 
uUUrbZ 






BR 


2S 


UQ 1 T C (\0 KirvT rUQBOrTPB 
, WH 1 1 r UK nt A 1 tnMFHL 1 tK 


Zd 16 


nn7cij n 
OUJsHO 


IZZrlb 


nr^nn^c 
OoOOZb 


7« 


CnPB 


HCNTRLU, (SP) 




Z617 


nn 7Cii ii 


nn 1 nnii 
001 OOH 






BNE 


4* 




Z6 lo 


nn7ciA£. 
□OJbHb 


nnc7 
uObrZb 






TST 


(SP)* 




Zbl7 


nn7ccn 


nnnnnu 


nni 77c. 
UUt Jr b 




TYPE,CRLF 




Z6Z0 


nn7ccii 


nnn7C4 






BR 


It 




ZoZl 




111 C77 

1 1 IbJr 


nni iin7 




nouB 


(SP),aiECH0 




ZoZZ 


nn7CC'9 
UUJbbZ 


111 c^n 
1 1 ibZU 






nouB 


(SP), (RO)* 






nn 7C£.u 
UU JbbH 


1 ZZr Zb 


nnnni c 
uuuu 1 b 




CtlPB 


»CR, (SP)* 




262H 


001570 


001403 






BEQ 


5S 




262S 


003S72 


000004 


001403 




TYPE, 


ECHO 




Z6Z6 


nn 7C 
OOJbrb 


nnn7ii ^ 






BR 


2S 






nn7£.nn 


nnnnnu 


nni 77L, 
UU 1 Jfo 


6S 


TYPE^CRLF 




ZbZo 


nn7£.nu 


ni 7t.nn 
U 1 ZbUU 






nou 


(SP)+,RO 






nmtnt 
UU JOUb 


nnn'^n? 

UUU^Ur 






RTS 


PC 




-b J 1 








;KEYBC.RRD INTERRUPT SERVICE ROUTINE 


2632 


003610 


113746 


177562 


TKISR. 


nouB 


aiTKB, -(SP) 


,GET TYPED CHORRCTEP 


2633 


0036 m 


042716 


000200 




BIC 


•200, (SP) 


/STRIP PARITY BIT 


9C.7U 


nn7fc7n 
uu jb^u 


1 1 D 


nnnni 7 




cnPB 


•CNTRLO, (SP) 


, BRANCH IF NOT CONTROL 0 






nni nnT 

UU 1 UU J 






BNE 


IS 


,SET CONTROL 0 INDICATOR 


Jo 


nn7£>9£> 

UU<jb£b 


1 1 ■74.77 






novB 


(SP)*,SCNTRL0 


^t> 77 


UU 


nnnnn? 






RTI 




;EXIT 


2638 
2639 


00363H 


1 22726 


000003 


IS 


CMPB 


»3. fSP)* 


, BRANCH IF NOT CONTROL C 


26H0 


0036H0 


001003 






BNE 


2S 




26m 


0036H2 


000005 






RESET 






26H2 


003644 


000137 


005^50 




JMP 


d«INlT 


, RESTART PROGRAM 


26H3 


003660 


000002 




2S 


RTI 




.EXIT 
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SEQ 0082 









2bH(> 






2647 


003652 


000000 


26>«8 






26149 






2650 






26S1 






26S: 






2653 






265H 


003654 


004737 


2655 


003660 


004737 


265b 


003664 


110637 


2657 


003670 


032777 


2658 


003676 


001075 


2659 


003700 


000004 


2660 


003704 


113702 


2661 


003710 


004737 


2662 


003714 


016600 


2663 


003720 


162700 


2664 


003724 


111000 


2665 


003726 


001417 


2666 


003730 


000004 


2667 


003734 


122700 


2668 


003740 


001005 


2669 


003742 


004737 


2670 


003746 


000004 


2671 


003752 


000447 


2672 


003754 


004737 


2673 


003760 


000004 


2674 


003764 


000442 


2675 


003766 


016500 


2676 


003772 


032765 


2677 


004000 


001403 


2678 


004002 


042700 


2679 


004006 


000402 


2680 


OGHOlO 


042700 


2681 


004014 


005700 


2682 


004016 


001003 


2683 


004020 


000004 


2684 


004024 


000436 


2685 






2686 


004026 


000004 


2687 


004032 


010500 


2688 


004034 


012701 


2689 


00H040 


012002 


2690 


004042 


004737 


2691 


004046 


000004 


2692 


004052 


006301 


2693 


00H054 


001371 


2694 


004056 


016502 


2696 


00H062 


004737 


2696 


00HG66 


000004 


2697 






2698 


004072 


022777 


2699 


004100 


001402 


2700 


004102 


000004 



SBTTL ERROR SERVICE ROUTINES 

.ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 
ERRTRP HALT 

, ERROR SERVICE ROUTINE 

.THIS ROUTINE PROCESSES TUO TYPES OF ERRORS (OUT OF RANGE AND HAROUARE) 
.THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT-f 1 >. <HLT-»2> AND. FOR A 
; HAROUARE ERROR THE CALL IS <HLT> 



001772 
002560 
001125 

020000 175104 

014265 
001124 
002632 
000016 
000002 



014350 
000002 

003150 
001376 

003054 
001376 

000014 

002000 000032 

102100 

102300 

014241 

014275 

000007 

002632 
G01411 

000032 
002632 
001376 

001000 174702 
001405 



HLT 


JSR 


PC.CKSUR 


.CHECK FOR CNTL G 




JSR 


PC. SAVE 


.SAVE REGISTERS ON THE STACK 


li 


novB 


SP/dlCRFLG 


.SET ERROR FLAG 




BIT 


iSUl3. asuR 


.BRANCH IF NO TYPOUT 




BNE 


4f 






TYPE.E 


HDR 






tlOVB 


aiTSTNUn,R2 


.GET TEST i 




JSR 


PC.TYPOCT 


.AND TYPE IT 




nov 


16(SP).R0 


^ ^ ^ A ^ 9 ft ftflft ft ft #^ ^ 

;GET RETURN PC 




SUB 


12. RO 


. & ft ^^ft i A ^ ^ ft 1 ft V ^ ft 

;NOH PC OF HLT CALL 




novB 


(RO).RO 


L i ■ ft Ift ^ ^ i%ft ■ 9 ^ ^ f ^ 

;NOU HLT CALL ITSELF 




6EQ 


Z\ 


.BRANCH IF HLT 




TYPE.E 


H0R2 






CMPB 


12. RO 


.BRANCH IF NOT HLT+2 




BNE 


10« 






JSR 


PCOUTGflP 


.TYPE GAP SPECIFIED TIMES 




TYPE.CRLF 






BR 


4t 




lOS 


JSR 


PC.OUTSPC 


.TYPE SPECIFIED TIMES 




TYPE.CRLF 






BR 


4t 




2S 


MOV 


ER(R6).R0 






BIT 


IPE1600. TC(R6) 






BEQ 


20f 






BIC 


I102100.ro 






BR 


2lt 




20S 


BIC 


I102300.ro 




21$ 


TST 


RO 






BNE 


22% 






TYPE.E 


SFT 


.TYPE SCFT ERROR MESSAGE 




BR 


6f 




22% 


TYPE.E 


HORl 






MOV 


R5.R0 


,GET FIRST ADDRESS OF REGS 




MOV 


17. .Rl 


•TYPE FIRST 7 REGS 


35- 


MOV 


(R0)«.R2 


.GET REG CONTENTS 




JSR 


PC.TYPOCT 


.AND TYPE IT 




TYPE.SPAC£2 






DEC 


Rl 






BNE 


3t 






MOV 


TC(R5).R2 


.GET CONTENTS OF TC REGISTER 




JSR 


PC.TYPOCT 






TYPE.CRLF 




4S 


BIT 


XSU09. dSUR 


.BRANCH IF NO PING THE BELL 




BEQ 


5« 





TYPE. BELL 
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OZTUDD 


Pll 


27-0CT-77 


13 17 




ERROR 


SERVICE ROUTINES 




2701 


OOM 1 06 


023737 


000042 


000046 5t 


CMP 


jim2, ai46 


, flCTl 1 flUTO MODE'' 


2702 


oomiM 


001 002 






BNE 


b% 


. NO 


2703 


oomib 


000000 






HniT 






2704 


004120 


000404 






BR 


7% 




270B 


004122 


00B777 


174664 


6i 


TST 


dSUR 


,HPLT ON ERROR'' 


270t) 


004126 


100001 






BPL 


74 




2707 


004 1 30 


000000 






HALT 






2708 


004132 


004737 


001772 


74 


JSR 


PC/CKSUR 


;CKECK FOR CNTL G 


2709 


004136 


004737 


002602 




JSR 


PC/ RESTORE 


.RESTORE REGISTERS 


2"'10 


004142 


000002 






RTI 




/RETURN 



:7n 
:7i: 



D2TUD-0 Tn02 DRIUE FUNCTION TIMER 
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27m 
27t6 
271b 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
Z72H 
2726 
272b 
2727 
2728 
2729 



HRCY11 



G 7 

30(lOHb) 27-0CT-77 13 
SCOPE SUBROUTINE 



H2 PRGE 17-9 



SEQ 008U 



SCOPE SUBROUTINE 



SBTTL 
SCOPE ROUTINE 

THIS ROUTINE IS ENTEREu UPON COHPLETION OF EPCH SUBTEST 
THE SCOPE ROUTINE. 

OUTPUTS TiriE SPEC ON ERCH ITERATION IF SU08 IS SET 

REPEATS TEST IF SUm IS SET 

STORES flCTUflL TIIIE FOR FUNCTION IN TIHE TABLE (ATIMTBD 
PUBLISHES TIHE IF SUlOsQ 

UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
TO NEXT TEST, OTHERWISE REPEATS TEST 
DELnvS BEFORE CONTINUING OR REPEATING TEST 
INITIALIZES DRIVE 
RETURNS RS=BASE ADDRESS OF Tri02 REGISTERS (ADDRESS OF CSl) 

Rls'DS' REG ADDRESS 



RQ: 'FC REG ADDRESS 





nnii 1 liU 

UU"* I "It 


nnu 7 77 

UUt f if 


nni 777 

UU \f 1 L 










''771 


nnu 1 fin 


ni 77nc 


nni ni 7 

UU 1 U 1 ^ 






nnu 




L( -iL 


nnii 1 &(i 


m7777 
UHf f f 


nnnunn 

UUUtUU 


1 TLi.C'i 1 




R 1 T 






nnu 1 (>9 

UUt 1 Oi 


nni unu 

UU 1 tut 










10% 




nnu 1 <kU 


1 1 77n9 

1 1 «jr KJi 


001 1 7U 

UU 1 1 4«t 






nnuB 

f IV V D 


AITSTNUn. R2 


if J3 


nnu 1 7n 


nnu 7 77 

UUt f if 


00701^4 






J OR 


PC . OUTSPC 


if 


nnu 1 7u 


079777 


ounnnn 

utuuuu 


1 7u^nn 

1 f T wUU 


I U 9 


B 1 T 


lSUtli> ASUR 


t,f ■if 


nnta9n9 


nni u 1 7 

UU 1 t 1 r 












97 7B 

if 


nnu9nk 


nnu777 

UUt f 










PC, DELAY 


97 7Q 

if J 7 


nnu9i n 


nnu 7 77 

UUt f J f 








JSR 


PC. RHINIT 




nnu 7 1 u 

UUt il^ 


1 n(in77 


nni 1 ''ti 

UU 1 i ^3 






CLRB 

^ k n O 


aiFRFLG 

WW b n r b w 


77m 


nnu 920 

UU~ iiV 


ni 77ife 








MOU 


SCPADR, (SP ) 


ifyi 


nnu99u 


ni nc^ni 

U 1 U3U 1 








1 1 V w 


<R6. Rl 


7711 7 

i'^i 


nnu79(k 




noon 1 7 

UUUU 1 it 






ADD 


>DS. Rl 


971111 


nnu 9 79 

Uvt i^i 










1 IV V 


R5, RQ 


if 


nnu27u 




QO0GC6 






ADD 


SFC'RO 


9711 <> 


nnu9un 


nnnnn? 








RT 1 




97li7 
H^f 
















if "VO 


nnu 7u 7 


1 r\^717 

1 U w * <J ( 


UU 1 1 -J 






TSTB 


diERFLG 


27H9 


00*42*46 


001006 

m WWW 








BNE 


3S 


27&0 


COM 260 


113700 


001123 






M0V6 


dtlTCNT.RO 


2761 


00*4 26H 


006300 








ASL 


RO 


2752 


00M256 


013760 


oolom 


001016 




MOV 


dlATmE,ATmTBL«RO> 


2763 


00H26S 


106237 


001123 




3S 


INCB 


dtlTCNT 


276H 


00M27G 


006737 


001000 






TST 


dtPASS 


2756 


O0M27H 


oomio 








BEQ 


m 


2766 


00H276 


032777 


OOHOOO 


l7H*47b 




BIT 


• SUU/dSUR 


2767 


OOH30*4 


OOlOOH 








BNE 


m 


2768 


00H306 


122737 


000020 


001123 




CMPB 


116. ,dtlTCNT 


2759 


00«43m 


001333 








BNE 


\% 


2760 


004316 


011637 


OOlOOH 






MOV 


(3P),dtSCPADR 


2761 


00H322 


032777 


002000 


1714452 




BIT 


iSUlO, asuR 


2762 


OOS330 


001002 








BNE 


5t 


2763 


00*4332 


OOH 737 


003360 






JSR 


PC, PUBLISH 


276H 


00H336 


106037 


001123 




6S 


CLRB 


dtlTCNT 


2765 


00H3H2 


106777 


17HH3H 






TSTB 


dSUR 


2766 


00H3H6 


001716 








BEQ 


IS 


2767 


00H350 


0177M6 


17HH26 






MOV 


dSUR,-(SP) 


2768 


O0H36H 


0H2716 


l777^0 






BtC 


I1777H0. (SP) 


2769 


00H360 


006316 








DEC 


(SP) 



, CHECK FOR CNTL G 

;SET R5 TO FIRST TM REG 

.BRANCH IF SPECIFICATION LINE 

xNOT DESIRED ON EACH ITERATION 

;GET TEST NUMBER 

; OUTPUT TIME RECORDED 

, BRANCH IF CONTINUOS LOOP 

;NOT DESIRED 

, DELAY 350 MS 

, INIT 

, CLEAR ERROR FLAG 



.ADDRESS OF 'DS' REG IS IN Rl 
ADDRESS OF FC REG IS IN RO 

.BRANCH IF ERROR FLAG IS SET 

/GET ITERATION COUNT 
.STORE TIME IN TABLE 

.INCREMENT ITERATION COUNT 
, 1ST PASS"* 

.YES 

.BRANCH IF SINGLE ITERATION DESIRED 

.BRANCH IF ITERATIONS INCOMPLETE 

SET SCOPE ADDRESS TO NEXT TEST 
.BRANCH IF NO PUBLICATION DESIRED 

•GO PUBLISH TEST DATA 

.RESET ITERATION COUNT 

.BRANCH IF USER DOES NOT WANT TO 

.HALT ON A SELECTED TEST 

.GET SWITCHES 

.CLEAR ALL BUT TEST ; 

.FORM TEST 8 -1 



H 7 
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DZTUOO Pll 27-0CT-77 13 17 SCOPE SUBROUTINE SEO 0086 



2770 
2771 
2772 
2773 
277W 
2775 
277fa 
2777 

2778 
^779 

2780 
278! 
2"'S2 

27S3 
27St* 

:78b 

2787 
2788 
2789 
2790 
2791 
2792 
2793 
279H 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
280H 
2805 
2806 
2807 

:sos 

2309 
2810 
2311 
2812 
2813 
28m 
2815 
281b 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
282M 
2825 



00<43b2 
OOU 3bb 
00H370 
GGH372 
00*1376 



OO'^^OO 
00'«»»02 
OOHUOb 

ooHm'4 
ooMmb 
00ll^2^ 

00>4M2b 

0014 "4 30 
0014 14 32 
004HH0 

oo^^>42 



QO^>4^l4 
0014 "452 
00>4^5^ 



00HH70 
00H"472 
00*4 H7H 
00HH76 
00*4500 
00H504 
00H606 



001451 M 
00MS22 



123726 
00130b 
000000 
001737 
000702 



00500»4 
012703 
0327b5 

oomo5 

C327b5 
001 37M 
000>405 

OOS^OS 
032765 
OOl77^ 
00020^ 



032765 
001>406 
000112 

00>4<470 
006103 
006201 
100101 
000112 
000001 
101100 
000177 

001611 

032766 
001362 



001121 
001772 



000021 

000100 000021 
000100 000021 



noOlOO 000021 



000100 000021 



011:76 
171272 



000100 000021 



cnPB 

BNE 
HALT 
JSR 
BR 



dITSTNUn, (SP)^ 
IS 

PC.CKSUR 
If 



, BRANCH IF NOT PT "EST 



.CHECK FOR CNTL G 



SBTTL TinER SUBROUTINES 

SUBROUTINE TO SYNCHRONIZE THE TIMER ONO TURN IT ON 
REGISTER 1 IS CLEARED. RNO THE OSCILLPTOR POLPRITY 
THE ROUTINE IS EXITED MHEN THE OSCILLPTOR POLRRlTY 
SET TO INDICATE THE POLPRITY OF THE OSCILLPTOR 



IS MONITORED 
CHPNfES UITH R3 



.CRLL 


JSR 


PC. TIMON 




.RETURNS 


R3 SET TO INDICATE LAST 


POLARITY (♦21/-21-0/1) 






R1 : 0 




TIMON 


CLR 


R1 


.CLEAR TIME COUNT 




MOU 


»21.R3 


.SET POLPRITY TO 0 STPTE 




BIT 


•0SC.MR(P5) 


.BRPNCH IF POLAR I Tf IS 0 




BEQ 


2S 




IS 


BIT 


«0SC.MR(R5j 


.UPIT FOR OSCILLPTOR TO RETURN 




BNE 


It 






BR 


IS 




25 


NEG 


R3 


.NEuHTE PRtV POLPRITY INDICPTOR 


3S 


BIT 


»0SC.MR(P5> 






BEQ 


3S 


.TO T STATE 


IS 


RTS 


PC 




.SUBROUTINE TO 


COUNT TIME 




,EPCH 


TIME THE 


OSCILLATOR TOGGLES (BIT 


<06> IN MR REGi REGISTER 


,R1 IS 


INCREriNTED. AND THE REGISTER R3 


IS NEGATED TO INDICATE 


.THE LPST STPTE 


OF THE OSCILLATOR 




.CPLL 


JttP 


TlMER(R3) 


.R3 IS SET BY TIMON ROUTINE 




R2=RETURN ADDRESS TO CALLER 




!note 


THE TIME 


TO EXECUTE THIS ROUTINE 


IS VERY CRITICAL IT MUST BE 


.LESS 


THAN 10 US 




, ENTER 


HERE VIA 


JMP TIMER(P3) UHEN P3^ 


21 'PREV STRTE=l) 


TIMERl 


BIT 


»0SC,riP(R5> 


-BRANCH IF CURRENT STPTE IS "O" 




BEQ 


TIMER 


,G0 INCREMENT TIME 




JMP 


(R2» 


.RETURN TO TEST 



TIMER 



TIMERR 



= TIMERU21 



NEG 
INC 
BMI 
JMP 

TYPE.E 

HLT 

JMP 



R3 
R1 

TIMERR 

(P2) 
TIMOV 

dSCPADR 



.NEGATE PREV STRTE IND1CRT<^P 
. INCREMENT 'TICK' COUNT 
BRANCH ON OUERFLOU 
.RETURN TO TEST 
.TYPE 'TIMER OVERFLOUED" 
•REPORT HARDURRE ERROR 
.RETURN TO BEGINNING OF TEST 



sTIHER+21 

.ENTER HERE VIA JMP TIMER(R3) UHEN R3=*:i (PREV STATE=0> 
TIMERO BIT lOSC.MR^RS) . BRPNCH' IF CUPREUT ^TPTE 

BNE TIMER 



DZTUD-D Tn02 
D2TUDD PU 
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7 
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SEQ 008b 



282b 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 

(I ) 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2860 
28S1 
2862 
2863 
2864 
2866 
2866 
2867 
2868 
2869 
2860 

(1) 
2861 

2363 
2864 
2866 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
(1 ) 
2873 
2874 
2875 
2876 
2877 
2878 



004624 000112 



004626 
004626 
004632 
004636 
004640 
004542 
004644 
004646 
004660 
004662 
004664 

004566 
004660 
004664 
004670 
004672 
004676 
004602 
004604 
004606 
004614 
004616 
004624 
0QH626 
004630 
004630 
004b34 



004636 
004636 
004642 
004646 
004660 
004662 
004654 
004656 



010346 
012746 
004737 
005726 
012637 
113700 
006300 
006300 
023760 
101004 
023760 
101001 
104401 

004737 
000207 



jnp 



(R2) 



SUBROUTINE TO CHECK TIHE RECORDED BY SUBTEST 

THIS SUBROUTINE COtlPUTES THE RCTUfiL TIflE (IN niCROSECONDS* PND CHECKS 
THRT THE TIME RECORDED BY THE SUBTEST IS CORRECT B^' COflPORlNG THE TIHE 
UITH THE HIGH LIMIT (ST IMTBL (RO) ) RND THE LOW LIMIT (ST inT8L*2(R0) ) 
IF THE TIME IS OUT OF RANGE AN OJT OF RRNGE ERROR TYPEOUT RESULTS 
THE SUBROUTINE IS ENTERED UITH 



TIMOK 



004737 002560 

012700 000070 

010401 

005002 

005003 

060002 

006603 

006301 

001374 

010246 



IS 



000012 
006052 

OOIOIM 
001124 



001014 001420 
001014 001422 



00260: 



2S 
3S 



R4=TICK COUNT 



JSR PC, SAVE 

MOV <66 ,R0 

MOV R4,R1 

CLR R2 

CLR R3 

ADD R0,P2 

ADC R3 

DEC Rl 

BNE \% 

MOV R2<-(SP) 

MOV R3, -(SP) 

MOV «10. ,-(SP> 

JSR PC, DIVIDE 

TST (SP)* 

MOV (SP)*,ilRTIME 

MOUB dITSTNUM, RO 

ASL RO 

ASL RO 

CMP dlflTinE^STIMTBLtROj 

BHI 2t 

CMP aiRT«nE,STIHTBL*2(P0) 

BHI 3f 

HLT+l 

JSR PC. RESTORE 

RTS PC 



,SAVE REGISTERS ON THE STACK 

,GET TIME PER TICK 

,GET TICKS COUNT 

, CLEAR SUMMING REGISTERS 

, MULTIPLY TIME PER TICK 
,BY TICK COUNT 



.DIVIDE COUNT BY 10 



, DISCARD REMAINDER 
, STORE QUOTIENT 
,GET TEST II 



, CHECK THAT TIME IS WITHIN 
, LIMITS SPECIFIED 



.COLL ERROR ROUTINE 

, RESTORE REGISTERS FROM THE STOCK 
.RETURN 



, SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TST021) 
.SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
,THAT THE GAP TIME RECORDED BY THE SUBTEST (TST021) BY COMPARING THE 
,TIME UITH THE MAX LIMIT (6T IMTBL-GAPTBURl ) ) AND THE MIN LIMIT 
(QTIMTBL+2-GflPTBL(Rl)). 



.CALL 



GAP OK 



004737 
012700 
010401 
005002 
005003 
060002 
006503 



002560 
000070 



IS 



nOV UTICK COUNT, R4 
MOVB tGflP.dlGAP 
JSP PCGAPOK 



JSR PC. SAVE 

nOV X66 .RO 

MOV R4.R1 

CLR R2 

tLR R3 

ADD R0.R2 

ADC R3 



, P4 CONTAINS TICK COUNT 
.LOCATION GAP CONTAiNS GAP 8 



SAVE REGISTERS ON THE STACK 

GET TIME PER TICK 

GET TICK COUNT 

CLEAR SUMMING REGISTER'^ 



.MULTIPLY TICK COUNT 
.BY TIME PEP TICK 
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SEQ 0087 



2879 
2880 
2881 
2882 
2383 
288>« 
288& 
2886 
2887 
2S88 
2889 
2890 
2891 
2892 
2893 
289H 
2896 
28% 
2897 
2898 
2899 
2900 
2901 

(1) 
2902 
2903 
290'4 
2905 
2906 
2907 
2908 
2909 

(1 ) 
2910 
2911 
2912 
2913 
29m 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 

(1) 
2921 
2926 
2926 
2927 
2928 
2929 
2930 
2931 



004660 


005301 




004662 


001374 




004664 


010246 




004666 


010346 




004670 


012746 


000012 


004674 


004737 


A^ A 

006062 


004700 


006726 




004702 


012637 


001014 


004706 


1 13703 


A A a « A A 

001 122 


004712 


006303 




004714 


006303 




004716 


023763 


nn 4 n 4 ii 

Q01014 


004724 


« A 4 A Al • 

101004 




004726 


A/> ^ ^ 

023763 


nn 4 n 4 ■■ 

001014 


004734 


« n 4 A A o 

101002 




004736 


104402 




004740 


000406 




004742 


032777 


nnnii nn 

□0040U 


004750 


001402 




004752 


C04737 


003150 


004756 






004766 


004737 


a02b02 


004 76Z 


AAA ^ A "7 




004764 


Anil ^ 

004737 


nnii ii nn 

□04400 


004770 


n « noil ^ 

010246 




004772 


01Z7UZ 


OOsOOz. 


004776 






004776 


000163 


004470 


005002 


032704 


004000 


OObOQb 


□01 7(' J 




005010 


012602 




005012 


000207 




005014 


005737 


nn 1 1 ^ c 
001 lib 


0050Z0 


nn 4 ii 1 7 

001 H 1 J 




006022 


nnii 7 




006026 


n 4 n oil ^ 

010246 




OObOJU 


012702 


UUbU'iU 


00b034 






nncn7iA 
UUbUjH 


uUUl bo 




006040 


023704 


001116 


006044 


101373 




006046 


012602 




006060 


000207 





2S 

3% 

lOOS 



DEC 


Rl 




BNE 


14 




nou 


R2, -(SP) 


/DIVIDE TIML BY 10 


MOV 


R3. -(SP) 




MOW 


•10 / - (SP ) 




JSR 


PC. Oil/IDE 




TST 


(SP)* 


A 1 A ^ An A A P MA ■ L i AP A 

/ DISCARD REMAINDER 


MOV 


(SP)*# ilBT IHE 


/STORE QUOTIENT 


MOUB 


dtOflP. R3 


/ GE T GAP # 


flSL 


R3 


Mill TAl IJ BW li 

/MULTPLt By 4 


PSL 


R3 


TA AT T no 1 r P k.lTD \y 

/ TO uET HT THdLE entry 


CMP 


dlHT IME/ GT IMTBL (R3) 


/CHECK TIME (MHX) 


BH 1 


ZS 




CMP 


^MATiIMP /^TlMYAl a/>/A^\ 

dtRTinE' GTinTBL+2(R3) 


/ CHECK TIME (HIN) 


BH 1 


3f 




HLT+2 




/REPORT OUT OF RANGE ERROR 


BR 


lOOS 




BIT 


«SU08/ dSUR 


/BRANCH IF TIMES NOT UANTED 


BEQ 


a A A 

loot 




ICQ 


Di AIITItQO 


Tvpr RQP T 1 Mr ? 

/ 1 TrL unr 1 incd 


JSR 


PC RESTORE 


/RESTORE REGISTERS FROM THE 


RTS 


PC 


/RETURN TO TEST 



SBTTL 



DELAY SUBROUTINES 



/THIS SUBROUTINE CAUSES A DELAY OF 360 MS 



DELAY 


JSR 


PC/TIMON 






• MOV 


R2, -(SP) 


/SAVE P2 ON THE STACK 




MOV 


«2S.R2 


/SET RETURN ADDRESS FOR TIMER 


IS 


JMP 


TIHER(R3) 


GO TO TIMER & RETURN VIA R2 


2S 


BIT 


«4000. P4 






BEQ 


IS 






MOV 


(SP)*/R2 


/RESTORE R2 




RTS 


PC 




/THIS 


SUBROUT 


INE ALLOWS fl CALLER SPECT 


I ED DELAY (UP TO 65MS ) 


/CALL 


MOV 


DELAY TltlE/DELTlM 


LOAD DELAY TIME ( IN US> 




JSR 


PC/ DELAYV 




DELAYV 


TST 


DELTIM 


/BRANCH IF 0 DELAY 




BEQ 


3S 






JSR 


PC/TIMON 


-TURN TIMER ON 




MOV 


R2/ -(SP) 


/SAVE P2 ON THE STACK 




MOV 


«2S/R2 


•SET RETURN ADDRESS FROM TIMER 


IS 


JMP 


TIMERIR3) 


/GO TO TIMER i RETURN Vifl P2 


2S 


CMP 


aSDELTIM/R4 






BHI 


IS 






MOV 


(SP)*/R2 


/RESTORE P2 


3S 


RTS 


PC 





SBTTL DIVIDE SUBROUTINE 
THIS SUBROUTINE DIVIDES A DOUBLE PRECISION 8 AND RETURNS THE RESULT 
TO THE CALLFR ON THE STACK BOTH DIVIDEND & DU'lSOP MUST BE POSITIVE 



D2TUD-D Tn02 ORIUE FUNCTION TIMER 
02TU0D PU 2/'-0CT-77 13 17 



K 7 

nflCYll 30(10^b) 27-0CT-77 13 ^1 PRGE 17-13 
DIVIDE SUBROUTINE 



SEQ 0088 



2932 








/ CALL 


nov 


LCQST SIGNIFICQNT 

bwn^i ^luiiii i^nni 


HALF 


DIVIDEND. -(SP ) 


2933 










nov 


• nOST SIGNIF ICPfiT 

wiivwi «^iui~i< ivmii 


HRLF 


D i U 1 DEND. - ( SP ) 


293'* 










nov 


• Dl V ISOR. - (SP ) 






2935 










JSR 


PC< DIVIDE 






2936 








'return 










2937 










(SP) = 


REnPlNDER ON STRCK 






2938 










2(SP ) 


sQUOT lENT 






2939 


















29140 
29m 








, NOTE 


THIS 


SUBROUTINE DESTROYS 


PREVIOUS CONTENTS OF R0,RLR2 S. R3 


29»4 2 


QQ5052 


0050>46 




DIVIDE 


CLR 


- (SP) 




<SHVE LOC FOR SIGNS 


29^4 3 


00505*4 


0127*46 


000021 




nov 


•17 , -(SP) 




/SET MtKHTION COUNT 


29*4 ^ 


005060 


016601 


000012 




nov 


12(SP).R1 




/ ut 1 Lsn UIVIUtNU 


29'4S 


00506M 


016600 


000010 




nov 


lO(SP). RO 




RCT Mcu niwincun 
/ ut 1 ndn UlulUtnU 


29^fe 


005070 


016602 


000006 




nov 


6(SP).R2 






Z9'4 7 


00607M 


005^02 






NEG 


R2 




. ncun It i/ivi dUK 


Z9^8 


005076 


0002>4l 






CLC 








29*49 


GOB 100 


000M05 






BR 


2i 






2950 


005102 


006100 




IS 


ROL 


RO 




; ROTATE MSH DIVIDFNO 


2951 


0051014 


010003 






nov 


R0,R3 




.SAVE IN R3 


2952 


005106 


060203 






ROD 


RC.R3 




.SUBTRACT DIVISOR FROn hSH DIVIDEND 


2963 


005110 


103001 






BCC 


2S 




;BRRNCH IF DIVIDEND > DIVISOR 


295^ 


005112 


010300 






nov 


R3.R0 




.SAVE REHAINOER IN RO 


2955 


0051 m 


006101 




2S 


ROL 


Rl 




; ROTATE LSH DIVIDEND 


2956 


005116 


005316 






DEC 


(SP) 




.DECREMENT ITERATION COUNT 


2957 


005120 


001370 






BNE 


It 






2958 


005122 


005726 






TST 


(SP)* 




.POP ITERATION COUNTER 


2959 


0051 2M 


005726 






TST 


(SP)* 




.POP SIGN CORRECTION 


2960 


005126 


010166 


000006 




nov 


R1,6(SP) 




.PUSH REMAINDER ON STACK 


2961 


005132 


010066 


OQOOOM 




nov 


. R0,«4(SP) 




.PUSH QUOTIENT ONTO STACK 


2962 


005136 


012616 






nov 


(SP)*. fSP) 






2963 


005m0 


000207 






RTS 


PC 
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SEQ 0089 











^7bb 
























Z7b7 








^7r U 




1 1 77<.C 


nni nn(> 


^7r 1 






nunnnn 
uuuuuu 






nni nm 




"7077 


nnci t.n 
UUb 1 bU 


nnii7 77 


nnc29n 


?Q7l» 
^7r 1 


nnci tM 


nnn7fe7 




?Q7t 
Z7f D 


nnci f%ts 


nnn7n7 




«:.7f D 
















7Q7K 








^7r 7 








^70U 








^7o 1 


nnci 7n 




UU 1 UUD 


««7o^ 




1 1 '77C,C 


nni nn7 

UU i UU ( 


^70«^ 


nnc9nii 


072765 

ww^r WW 


002000 

UUfcUUU 






oniQQi 








n002fe2 

uuu^w^ 




^70D 








7Qfl7 

^70r 








^700 








4^707 








7<)9n 

^77U 








^77 1 


00^220 


012766 

U I A* 1 WW 


0000>40 


7992 




1 1 3766 


001006 

wW 1 WWW 


799 T 




□□50>46 




799U 


U w W A* ^ W 


1 1 5716 


001007 




nQ^2l42 


ni 2666 


000032 


^770 




■ WW 


000300 

WW W WU w 


9QQ7 




000207 

uuu^u * 




^770 








*777 








7nnn 




005:027 








OOOOQQ 

uuuuuu 








106766 

1 U W ' w J 


000012 

U UU w I M 






1 UU T U w 






nncz70 


006237 

UUW^ W < 


006260 

WW W WW 






UU 1 *J • «■ 




3UUD 




OQOOQU 


01UI423 






nOQU 26 








072766 

U W^ ( o w 


002000 

UUUUUU 


oUU7 


nncTi 2 


WU 1 ~ t w 








ooooot 

u uuuu • 


013I45I4 


1 1 


nQ^120 


noooai 

UUUUU « 


01I4002 

W • ~ WU A* 








006362 

WW W w Wm 


^ 1 / 




1 02it 1 2 






□05332 


OOH 737 


006*4 






006216 




3015 


006310 


00«»737 


006266 


3016 


0063im 


OOOMOH 




3017 


00S3>46 


032766 


010000 


3018 


0G636H 


oomol 




3019 


006366 


000262 





000010 
000026 



000010 
000032 
000026 



000010 
000010 



000032 



000012 



SBTTL 
.SUBROUTINE TO 
.CALL 

'/RETURN. 
DRVRVR- 



IS 



ORIVE SUBROUTINES 
CHECK IF DRIVE \Z RVRILRBLE 



.CRLL 



SLVRVR. 



IS 



SUBROUTINE 
CRLL. JSR 





UK 1 vLf/ UKvnun 






r L / UK VMVM 






'C BIT SET IF NOT 


RVRILRBLE 


novB 


ai0RVNUn,CS2(R6) 


.LORD DRIVE K 


B 1 T 
D 1 1 


H 1 Mr . U 1 I K 9 > 


■ THPCK ir TflPP UNIT 


One 


1 ft 

1 « 














.SET 'U' TO (NO NOT RURIL 


n 1 0 


pr 


, RETURN 


'INE TO 

1 lib 1 V 


CHrfK IF TU16 SLflUF 


IS RVRILRBLE FOR TEST 


nouB 

1 IWD 




;PRSS DRIVE ff VIA DRVNUM 


1 IvVD 


SL Q VF • , Al SL VNUn 


;PRSS SLAVE • VIA SLVNUM 


JSR 


PC< SLVRVR 


;CALL SUBROUTINE 


MOVB 


dlDRVNUn,CS2(R6) 


;LOAD DRIVE II 


novB 


dlSLVNUn.TC(R6) 


,AND SLAVE • 


BIT 


>SPR.DT(R6) 


; BRANCH IF SLAVE PRESENT 


BNE 


IS 




SEV 




;SET 'V TO INDICATE NO SLAVE 


RTS 


PC 





TO INITIALIZE 
PCRHINIT 



RH CONTROLLER 



000012 



RHINIT 


nov 


mO' CS2(R6) 






novB 


dlDRVNUn,CS2(R6) 






CLR 


-(SP) 






novB 


dISLVNUn. (SP) 






nov 


(SP)*. TC(R6) 


;LORD SLRVE ft INTO TC REG 




BIS 


«N0Rnn.TC(R6) 






RTS 


PC 




.SUBROUTINE TO 


UflIT FOR DRIVE READY 


(DRY) 


UfllTRDY. CLR 


(PC)* 


.CLERP URIT TIMER 


WfilTTIM 


. UORD 


0 




IS 


TSTB 


DS(R6} 


.WRIT FOR READY TO SET 




Bfll 


2S 






INC 


HfllTTitt 


. INCREMENT URiT TIMER 




BNE 


IS 


.BRRNCH IF TIME HRS NOT EXPIRED 




TYPE,E. 


TIHEXP 


-TYPE 'TIME EXPIRED WRITING FOR RDY' 




BR 


99S 


.TAKE ERROR EXIT 


2S 


BIT 


IE0T.DS(R6) 


.CHECK FOR END OF TAPE 


BEG 


3S 


.BRANCH IF NO EOT 




TYPE.n. 


NRM 






TYPE,?1 


EOT 


.TYPE 'END OF TAPE" 




JSR 


PC. REUIND 


; REWIND SLAVE 




BVS 


99S 


.BRANCH IF ERROR ON REWIND 




JSR 


PC, WRITE 


.WRITE R RECORD 




INC 


(R6) 


,SET "GO" BIT 




JSR 


PC.UAITRDY 


.WRIT FOR RERDY 




BR 


99S 


.TRKE ERROR EXIT 


3S 


BIT 


»ERR.DS(R6) 


.CHECK EPROR EXIT 




BEQ 


lOOS 




99S 


SEV 
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SEQ 0090 







00020' 


















































3029 


005362 

UUw ww*> 


004737 

wu~ r w ■ 




00^366 

UUw WWW 


00»(337 

ww~ w w r 


mil 


UU w w ■ 


OOOQQQ 

WW wwwu 




QO53714 

U W w w ' ~ 


000000 

WWW WWW 




w w ■ w 


OOQQQO 




OQ5I400 

WUw > WW 


000006 

wwwwww 


W U w w 


0051(02 

Www* w 


005215 




OOSHOH 


032765 


3037 


006M 1 2 


001006 

WW 1 www 


3038 


0051(1 It 


032766 


3039 


005«(22 


001006 

WW • www 


30'40 


00542*4 


r >0767 


3om 






30H2 


005HZ6 

Www* W 


032765 


30H3 


0051* 34 


0013''4 


30Hi< 


005136 


000401 


30t6 


OO5>«>40 


000262 


30H6 


0051 t 2 


00020? 


30«*7 






301(8 






30H9 






3050 






3051 


0054I4I4 


004337 


3052 


005450 


016030 


3053 


005452 


1 77600 


305M 


005454 


1 77400 


3055 


005456 


000060 


3056 


005460 


000207 


3057 






3068 






3059 






30fe0 






3061 


005462 


004337 


3062 


005466 


016030 


3063 


005470 


1 77600 


3061* 


006472 


177400 


3065 


005474 


000070 


3066 


005476 


000207 


3067 






3068 






3069 

WWW ^ 






3070 






3071 


005600 


004337 


3072 


005504 


016430 


3073 


005506 


177600 


307H 


006510 


177400 


3076 


006612 


000076 



lOOf 



RTS 



PC 



SUBROUTINE TO REUIND fl UNIT (ORIVE/SLPVE COMBINPTION) 
CniL nOVB DRIVE l.dtORVNUn 

nOVB SLPUE l^dtSLVNUn 

JSR PC/. REUIND 
SUBROUTINE RETURNS TO CALLER MITH SELECTED SLAVE PT 'BOT', I V SET IF 
PN ERROR OCCURS 



005220 
006600 



000002 000012 
040C00 000012 



IS 



020000 000012 2i 



JSR 


"C/RHINIT 


, INITIALIZE CONTROLLER 


JSR 


R3,Tncno 


;G0 TO Tn connPNO subroutine 


UORD 


0 


/BUS PDORESS (NOT USED) 


UORD 


0 


;UORD COUNT (NOT USED) 


UORD 


0 


/FRPnE COUNT (NOT USED) 


. UORD 


RUD 


/REUIND connPND 


INC 


(R5) 


/SET 'GO' BIT 


BIT 


•B0T,DS(R6) 


/BRANCH IF 'BOT' SET 


BNE 


2S 




BIT 


1IERR.DS(R6) 


/CHECK ERROR BIT 


BNE 


99* 


; BRANCH IF ERROR BIT SET 


BR 


M 




BIT 


«PIP,DS(R5) 


/WAIT FOR TAPE MOTION TO STOP 


BNE 


2S 




BR 


lOOS 




SEV 






RTS 


PC 





99S 
lOOS. 

/SUBROUTINE TO URITE Z56. 
.CALL. JSR PC, URITE 



UORD RECORD 



005600 



URITE 



JSR 
UORD 
UORD 
UORD 
UORD 

RTS 



R3/Tt1CriD 

UTBUF 

UROCNT 

FRHCNT 

UFUD 

PC 



/GO TO Tn COntlAND SUBROUTINE 

■BUS ADDRESS 

.UORD COUNT 

/FRAME COUNT 

/URITE FORUARD COMMAND 



/SUBROUTINE TO READ A 256 
/CALL- JSR PC/ READ 



UORD RECORD 



006600 



READ: 



JSR 
. UORD 
. UORD 
UORD 
. UORD 
RTS 



R3, ilTMCnO 

ROBUF 

UROCNT 

FRMCNT 

RDFUO 

PC 



/ADDRESS OF KtRO BUFFER 
/2'S COMPLEMENT OF WORD COUNT 
/2'S COMPLEMENT OF FRAME COUNT 
.READ FORUARD COMMAND 



.SUBROUTINE TO INITIATE READ REVERSE COMMAND 
/CALL- JSR PC/REVRD 



005600 



PEVRD 



JSR 
UORD 
UORD 
UORD 
UORD 



R3/TnCHD 

RDBUF^256 

UROCNT 

FRMCNT 

RDREV 



.ADDRESS OF READ REVERSE BUFFER 
/2'S COMPLEMENT OF UORD COUNT 
/2'S COMPLEMENT OF FRAME COUNT 
/READ REVERSE COMMAND 
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3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

308H 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

309«* 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

31 OH 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3im 
3n«^ 

3116 
311? 
311S 
3119 
3120 
3121 
3122 
3123 
31 2H 
3125 
3126 
3127 
3128 
3129 
3130 
3131 



00551*4 


0QG207 








RTS 




PC 










.SUBROUTINE 


TO 


SPnCE FORUflRD 1 RECORD 


005516 


012765 


177777 


000006 


FUDSPC 


MOV 




•-1. FC(R5) 


00552H 


012715 


000031 

WWWWw fc 






nov 




•SPCFUD^l/ (R6) 


005530 


00'4737 


005256 






JSR 




PC.UfllTRDY 


00553>4 


000207 








RTS 




PC 










.SUBROUTINE 


TO 


URITE fl RECORD RND BRCK 


005536 


00'4737 


OOSHHH 




URT BK 


JSR 




PC/URITE 


0055^2 


005215 








INC 




(R5) 


0055HI4 


00'4737 


005256 






JSR 




PC/URITRDY 


005550 


102m2 








BVS 




2S 


005552 


012765 


177777 


000006 




MOV 




«-l,FC(R5) 


005560 


012715 


000033 






MOV 




»SPCREV+1, (R5) 


00556H 


001*737 


0052B6 






JSR 




PCHRITRDY 


005570 


102402 








BVS 




2% 


005572 


00H737 


0014764 




IS 


JSR 




PCOELRY 


005576 


000207 






2S 


RTS 




PC 



005600 
005604 
005610 
005614 
005616 



005620 
005624 
005630 
005632 
005634 
005636 
005640 
0056M2 
005646 
005662 
005654 
005660 
005662 
005666 
005672 
005674 
005700 
005702 
005704 
005706 



AORD RECORD COUNT 
.LORD COMMRND 
,URIT FOR RERDY 
; RETURN 



,UPITE THE RECORD 
.SET 'GO' BIT 



.LORD RECORD COUNT 
.LORD COMMRND 



012365 
012365 
012365 
012315 
000203 



016503 
012701 
000303 
006003 
006003 
006003 
006003 
042703 
052703 
110321 
016503 
000303 
042703 
052703 
110321 
016503 
006003 
006003 
006003 
006003 



000004 
000002 
000006 



.URIT FOR TRPE MOTION TO STOP 



SUBROUTINE TO LORD R COMMRND 
CRLL JSR 

UORD 

UORD 



TMCMD 



UORD 
UORD 

MOV 
MOV 
MOV 
MOV 
RTS 



R3. TMCMD 
BUS RDDRESS 

UORD COUNT (2*S COMPLEMENT) 
FRAME COUNT (2'S COMPLEMENT) 

connRND 



(R3)>.BR(R5) 
(R3)^.UC(R5) 
(R3)*.FC(R5) 
(R3)+. (R5) 
R3 



.LORD BUS RDDRESS 
.LORD UORD COUNT 
.LORD FRflME COUNT 
.LORD COMMAND 
; RETURN 



; SUBROUTINE TO PRINT TU16 SERIAL NUMBER 





.JSR 


PC- SNPT 


000030 


SNPT MOV 


SN(R5).R3 


001146 


MOV 


SOOIGITS.RI 


SUAB 


R3 




ROR 


R3 




ROR 


R3 




ROR 


R3 




ROR 


R3 


177760 


BIC 


1177760. R3 


000260 


BIS 


1260. R 3 




MOVB 


R3. (RD* 


000030 


MOV 


SH(R5).R3 




SUAB 


R3 


177760 


BIC 


8177760, R3 


000260 


BIS 


9260. R3 




MOVB 


R3. (Rl) + 


000030 


MOV 


SN(R5).R3 




ROR 


R3 




ROR 


R3 




ROR 


R3 




ROR 


R3 



.GET FIRST DIGIT 
;FILL FIRST DIGIT 

.GET SECOND DIGIT 



8 8 
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D2TU00 Pll 27-0CT-77 13 17 DRIVE SUBROUTINES 



SEQ 0092 



3132 


006710 


042703 


177760 






SIC 


t 177760/ R3 


3133 


0067m 


062703 


000260 






BIS 


1260/ R3 


313'* 


005720 


110321 








MOVB 


A7 #n4\* 

R3/ (Rl)^ / GET TH 


3136 


006722 


016603 


000030 






MOV 


SN(R5)/R3 


3136 


006726 


042703 


177760 






BIC 


1177760/ R3 


3137 


006732 


062703 


000260 






BIS 


1260/ R3 


3138 


006736 


110321 








novB 


R3/ (RD* /GET FOI 


3139 


0057'40 


10601 1 








CLRB 


(Rl) 


3mo 


0067»«2 


A A A A All 

000004 


001146 






TYPE, ODIG ITS ; TYPE S 


3im 


0067«»6 


A AA A A^ 

000207 








RTS 


PC /RcTUKN 


3m2 

31'*3 














rKUUKHn 1 N 1 M HL 1 £H 1 1 UN 


31'*'* 


005760 


012706 


000600 




1 N 1 T- 


Mn\i 


■CTVOTD CD 


3m5 
















Zl'^fe 


00575'4 


013746 


ftftftftftf 

000006 




CI ICI ID 


nuv 


SK. - / CP ^ 




005760 


013746 


nnA A Ai ■ 

000004 






MOW 






00576'4 


A 4 

012737 


ftftf ftftli 

006004 


ftftftftftli 

000004 




nuv 


WD 1 >/ Vwt 


3m9 


005772 


022777 


4 ^77 77 

\77777 


4 7 7ftftO 

I 7300Z 




l.nr 


f.4 acuD 


31B0 


006000 


A A 4 I k A A 

001402 










DU « 


3151 


006002 


n ftftii nil 

000404 








RP 

OK 




3162 


006004 


ft ^ 0£ 

uZZ6Z6 






^ 4 C 

bl> 


L 1 ir 


( CD ) 4, r cp ) f 


3163 


006006 


012737 


nnn 4 7^ 

0001 76 


ftft4 ftftO 

001 ooz 


605- 


1 IVV 


tSUREG. SUR 


316H 


006014 


012637 


ftftftftftli 

□□□□□4 




bZa 


1 IVV 


(SP )4, dt4 


3166 


0060ZU 


0 1 ZdJ7 


□□□□□b 






nov 


(SP)«/dl6 


3166 


0060Z4 


□ZZr Jr 


UUU 1 r b 


nni nno 
UUl UU^ 




cnp 


tSUREG, aiSUR 


3157 


00603Z 


00 lODZ 








BNE 


64« 


3168 


00603H 


ftftli 

004 j'Ji' 


ft ft Oft 7^? 






JSR 


PCCNTLU 


3169 


nil n 

0060*40 


105UJ?^ 


ftft 4 4 

□□ 1 1 Zb 




b43 


CLRB 


aiPRGFLG 


3160 


0060*4*4 


10BOJ7 


ftft 4 4 O 7 

001 1 Z3 






CLRB 


atlTCNT 


3161 


006060 


4 ftPft^^ 

106037 


ftft 4 4 Oil 

001 1Z4 






CLRB 


aiTSTNun 


3162 


006064 


lObOJr 


001 1 Zb 






CLRB 


aiERFLG 


3163 


OObUeO 




nn4 4 TO 






CLRB 


RSFLG 


316'* 


006064 


UIZ7J7 


00000b 


nnnnnti 
UUUUU4 




nov 


tERRVEC42, aiERRVEC 


3166 


006072 


□ lZ7-$7 


nnnnno 
OOOOOZ 


UUUUUb 




nov 


iRTI/dfERRVEC*2 


3166 


006100 


ftftCft "77 


nn 4 oc c 
001 Zbb 






CLR 


ailNBUF 


3167 


006104 


no "7^ 77 




nnnnu£. 
UUUU4b 




cnp 


diH2,dt46 


3168 


0061 12 


ftft 4 Ik 4 P 

001416 








BEQ 


5S 


3169 


0061 14 


000004 


nn* y^L. 
001 J7b 






TYPE,CRLF 


3170 


006120 


000004 


013464 






TYPE,n. 


NRH 


3171 


006124 


000004 


013622 






TYPE, 1 


REG 


31 72 


006130 


nftii 

004737 


ftft 7li 7f 

00347b 






JSR 


PC. INPUT 


3173 


006; 34 


nnij 7 77 
□□4737 


nn Tii^o 
OOiZbZ 




4S 


JSR 


PCCNVTflO 


317'4 


006140 


ft 4 77 77 

013737 


nn 4 4 on 
001 IZO 


UUIUI 




nov 


dlOCTflLO, dlTKBRSE 


3176 

^ « 


006146 


n4 7 9ftE 

013706 


nn 4 n 4 ^ 

001 01Z 




6S 


nov 


atTnBRSE/R6 


3176 
3177 










, ROUTINE TO CHECK IF CONTROLLER (RH11) 


Jl re 


UUO 1 










SEC 


(R6) 


3179 


006164 


00b715 








TST 


3180 


006166 


103003 








BCC 


6S 


31P1 


006160 


000004 


014041 






TYPE^E 


NCON 


3182 


006164 


000671 








BR 


INIT 


3183 


006166 


012737 


003652 


000004 


6S 


nov 


«ERRTRP,dlERRVEC 



,SET STPCK PTR 

,SflVE VECTORS 

,SET UP FOR TinEOUT 
, REFERENCE HPROURRE SWITCH REGISTER 



;PDJUST STOCK 

, POINT TO SOFTUflRE SWITCH REG 
.RESTORE VECTORS 



, CLEAR PROGROn FLAG 
; CLEAR ITERATION COUNT 
,SET TEST « 0 
/CLEAR ERROR FLAG 
; CLEAR ASK FLAG 

-CHECK IF "LP- IS AVAILABLE 

, ACT 11 AUTO noOE? 

;YES NO TITLE, DEFAULT ADDR 

,TYPE TITLE 

ASK USER TO TYPE CONT BASE ADRS 
,GET USER INPUT 
, CONVERT ASCII TO OCTAL 
,SET NEU ADDRESS 



IS AVAILAABLE 
•SET "C" IN PSU 
, BRANCH IF CONTROLLER AVAIL 



,SET F.PROR TRAP VECTOR 



DZTUD-D Tn02 
DZTUDD PH 

318B 



DRIVE FUNCTION TIMER 
27-0CT-77 13 17 



URCYU 30(lOHb) 27-OCT 
PROGRnn INITIRLIZnTION 



C 

■77 



8 

13 



H2 PAGE 18-H 



SEQ 0093 



320b 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
32m 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
322«« 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
323«» 
3236 
3236 
3237 
3238 
3239 
32H0 



; ROUT I HE TO GET Tn02 DRIVES USER 



3186 


00617*4 


106037 


001125 


DR 1 vES- 


CLkd 


con p 


3187 


006200 


012701 


001 166 




now 


Af\DIITDl D4 
IDRVTDL' K1 


3188 


00620H 


012700 


000004 




nov 


All DO 


3189 


006210 


006021 




11 






3190 


006Z12 


006300 








on 

KU 


3191 


0062m 


001376 






Okie 


11 


3192 


006216 


023737 


OOOOHZ □□□□Hb 




Lnr 


mm'ii.i vwHo 


3193 


0062214 


001*411 






DC A 




319H 


006226 


OOOOOH 


01 3667 




TVDC 1 


UK Va 


3195 


006232 




on Til 7^ 




JSK 


r V / 1 nr u i 


3196 


006236 


01Z7UQ 


001 Z66 






1 1 MRiir pn 
n 1 riDur / 


3197 


□06Z4Z 


tZZr lU 


UUU 1 Ul 




TMPR 




4 no 

3198 


006 ZH 6 


on 4 n 1 T 






Dnc 


3$ 






1 1 UD^r 


nni t2ft 

UU 1 1 AD 


100% 


novB 


SP/ PRGFLG 


3200 


00625H 


012701 


001166 




nov 


•DRVTBL.Rl 


3201 


006260 


012700 


000004 




nov 


114, RO 


3202 


006264 


012721 


\77777 


2S 


nov 


«-l, (Rl)+ 


3203 


006270 


005300 






DEC 


RO 


320M 


006272 


001374 






BNE 


2% 


3205 


00627>4 


000417 






BR 


CHKDRV 



DESIRES TO TEST 

; CLEAR ERROR FLAG 
.nnRK ALL DRIVES RS NOT TO 
,BE TESTED. A '0' INDICATES 
,THPT P DRIVE IS NOT TO BE 
, TESTED 

,flCTll flUTO nODE'» 
,YES TEST ALL DRIVES 

,GET USER INPUT 

,RN "A' SPECIFIES ALL 

, DRIVES TO BE TESTED 

.SET FLAG TO IND ALL DRIVES 

,nARK ALL DRIVES TO BE TESTED 

,A '-\' INDICATES THAT A DRIVE 

; IS TO BE TESTED 



,G0 CHECK DRIVE AVAILABILITY 



006276 
006302 
006304 
006310 
006312 
006314 
006316 
006322 
006330 
006332 



,GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 

, CHECK IF -connR* 

,STEP PTR PAST 'COnnR* 



122710 


000015 3S 


cnPB 


ICR, (RO) 


001414 




BEQ 


CHKDRV 


121027 


000064 


cnPB 


(RO),!'. 


001001 




BNE 


4t 


105720 




TSTB 


(R0) + 


112001 


4S 


novB 


(R0)+,R1 


042701 


177770 


BIC 


•177770, Rl 


112761 


\77777 001156 


novB 


»-l,DRVTBL(Rl) 


000240 




NOP 


3t 


000761 




BR 



, ASCERTAIN THAT DRIVES (Tn02'S) SPECIFIED ARE AVAILABLE 



006334 


006000 




006336 


106760 


001166 


006342 


001006 




006344 


006200 




006346 


122700 


000010 


306362 


001371 




006364 


000421 




006366 


110037 


001006 


006362 


004737 


006142 


006366 


102366 




006370 


000004 


01U106 


006374 


116037 


001134 014140 


006402 


000004 


014140 


006406 


110637 


001126 


006412 


106060 


001166 


006416 


000762 




006420 


106737 


001126 


006424 


001403 




006426 


106737 


001126 


006432 


001660 





CHKDRV: CLR RO 

IS- TSTB DRVTBLCRO) 

BNE 3t 

26- INC RO 

CnPB 18 ,R0 

BNE It 

BR 4f 

3S nOVB RO/ aiDRVNUn 

JSR PCaiDRVRVA 

6VC 2% 

TYPE,E. NORV 

nOVB DIGTAB(RO),atE NAVA 
TYPE,E.NflVfi 

nOVB SP.dlCRFLG 

CLRB ORVTBLCRO) 

BR ZS 

45 TSTB aiERFLG 

BEQ SLAVES 

TSTB dtPRGFLG 

BEQ DRIVES 



;R 0/-1 INDICATES THAT THE 
, DRIVE IS NOV IS TO BE TESTED 



-CHECK IF AVAILABLE 

BIT SET INDICATES NOT AVAIL 

•SET DRIVE « IN MESSAGE 

,SET 'ERROR' FLAG 

,nARK DRIVE UNAVAILABLE 

, CHECK NEXT DRIVE 

,G0 GF.T SLAVES IF NO ERROR 

-ASK USER TO RETYPE DRIVES IF 
, 'ALL' NOT SPECIFIED 



D2TUD-D Tn02 DRIVE FUNCTION TIMER 
DZTUDD PU 27-0CT-77 13 17 



32m 










0061(31* 


105037 


001125 


32H3 


OObHHO 


012701 


001166 


32m» 


006H*4H 


012700 


OOOOHO 


32H5 


006H50 


005021 




32H6 


006H52 


005300 




32H7 


006^5H 


001375 




32»48 


006*456 


005000 




32'*9 


006H60 


012701 


001166 


3250 


006*46*4 


105760 


001156 


3251 


006H70 


001007 




3252 


006M72 


062701 


000010 


3253 


006*476 


005200 




325M 


006500 


122700 


000010 


3255 


00650*4 


001367 




325b 


006506 


000H5M 




3257 








3258 


006510 


105737 


001126 


3259 


0065m 


001020 




3260 


006516 


110037 


001006 


3261 


006522 


116037 


001 13M 01 


3262 


006530 


OOOOOH 


013631 


3263 


00653H 


00H737 


003H7b 


326H 


0065H0 


012703 


001266 


3265 


0065HH 


122710 


000101 


3266 


006550 


001015 




3267 


006552 


110637 


001126 


3268 


006556 


012701 


001166 


3269 


006562 


012700 


OOOOMO 


3270 


006566 


012721 


1 77777 


3271 


006572 


005300 




3272 


00657H 


001 37H 




3273 


006576 


105737 


001126 


327H 


006602 


001016 




3275 








3276 


00660H 


122713 


000015 


3277 


006610 


001730 




3278 


006612 


121327 


00005H 


3279 


0066 16 


001001 




3280 


006620 


105723 




3281 


006622 


11230H 




3282 


00662*4 


o^270^ 


177770 


3283 


006630 


0601 OH 




328M 


006632 


1127m 


\77777 


3285 


006636 


000762 




3286 








3287 








3288 


0066*40 


005000 




3289 


0066M2 


005001 




3290 


0066HH 


012702 


001166 


3291 


006650 


105760 


001156 


3292 


00665H 


001007 




3293 


006656 


005200 




329H 


006660 


062702 


000010 


3295 


00666H 


022700 


000010 


3296 


006670 


001367 





D 8 

nflCYll 30(10*46) 27-0CT-77 13 H2 PAGE 18-5 
PROGRfln INITIRLIZRTION 



SEQ 009H 



, ROUTINE TO GET SLAVES (TU16'S) USER DESIRES TO TEST 

.CLEAR 'ERROR' FLAG 



SLAVES 


CLRB 


dIERFLG 




nov 


ISLVTBL.Rl 




nov 


132 .RO 


IS 


CLR 


(RD* 




DEC 


RO 




BNE 


IS 




CLR 


RQ 




now 


•SLUTBL.Rl 


Zi 


TSTB 


DRVTBL(RO) 




due 




3S 


ADD 


«8 .Rl 




INC 


RO 




CflPB . 


«8. .RO 




BNE 


2S 




BR 


CHKSLV 


HS 


TSTB 


aiPRGFLG 




BNE 


5S 




novB 


RO. ORVNUn 




novB 


DtGTAB(RO).dll. ORV 




TYPE. 1 


SLVS 




JSR 


PC. . INPUT 




now 


•INBUF.R3 




CflPB 


i'A. (RO) 




BNE 


7S 




novB 


SP.aiPRGFLG 


5S 


now 


tSLVTBL.Rl 




nuv 


1 77 Bfl 


6S 


nov 


(RD* 




DEC 


RO 




BNE 


6S 




TSTB 


dtPRGFLG 




BNE 


CHKSLV 


7S 


cnPB 


iCR.(R3) 




6EQ 


3S 




CMPB 


(R3).l'' 




BNE 


8S 




TCTQ 
1 O 1 D 




8S 


novB 


(R3U.RH 




BIC 


S177770,RH 




ADO 


Rl.RM 




riovB 


»-l, (RH) 




BR 


7S 


, ASCERTAIN THAT SuRVES (TU16'S) SE 


CHKSLV 


CLR 


RO 




CLR 


Rl 




nov 


«SLVTBL<R2 


IS 


TSTB 


DRVTBL(RO^ 




BNE 


3S 


2S 


INC 


RO 




ADD 


88 .R2 




CflP 


»8 .RQ 




BNE 


IS 



.HARK ALL SLAVES (6H ) AS NOT 
.TO BE TESTED. A 0 INDICATES THAT 
.A DRIVE'S SLAVE IS NOT TO BE 
.TESTED 

.RO = DRIVE • FOR SLAVES 

.Rl POINTS TO DRIVE'S SLAVE 

. IF DRIVE IS TO BE TESTED 

.GO TO HS OTHERUISE 

.STEP SLAVE PTR TO NEXT DRIVE'S 

.SLAVES AND INCREnENT DRIVE « 

.CHECK ALL DRIVES 

.AND UHEN ALL DRIVES CHECKED 

;60 CHECK SLAVE AVAILABILITY 

.BRANCH IF USER SELECTED ALL 

.DRIVES 

.GET DRIVE « 

.PREPARE USER ACTION nESSAGE 

;GET USER INPUT 

.SET PTR TO USER INPUT 

.BRANCH IF USER DOES NOT UANT 

, 'ALL' SLAVES 

.SET 'ALL' INDICATOR 

.riARK ALL SLAVES FOR ALL 

.DRIVES AS TO BE TESTED 



BRANCH iF ALL UAS SELECTED 



.GET USER SELECTED SLAVES FOR 
.DRIVE 

.STEP PTR PAST "COnnA" 



,AND nARK SELECED SLAVE 
,AS TO BE TESTED 



SELECTED ARE AVAILABLE 

,R0 WILL CONTAIN THE DRIVE 8 
,AND Rl THE SLAVE 8 
,SET PTR TO SLAVE TABLE 
.BRANCH IF DRIVE SELECTED 
,8> AVAILABLE FOR TEST 
. INCREMENT DRIVE « 
.STEP SLAVE PTR TO NEXT DRIVES 
.SLAVES BRANCH TO IS IF NOT ALL 
.DRIVES CHECKED OTHERUISE EXIT 



E 8 

DZTUD-D Tn02 DRIVE FUNCTION TlflER tIflCYll 30(10Hb) 27-0CT-77 t3 ^2 PRCE 18-b 
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3297 


00bb72 


000H3H 








BR 


74 




3298 


















3299 


00bb7H 


005001 






3S 


CLR 


Rl 


.SET SLAVE « 0 


3300 


00bb7b 


105712 






4$ 


TSTB 


(R2) 


/BRANCH IF CPIVE'S SLAVE IS SEL 


3301 


00b700 


00100b 








BNE 


bt 


.ECTEO FOR TEST 


3302 


00b702 


005201 






51 


INC 


Rl 


, INCREMENT SLAVE • 


3303 


00b7OH 


005202 








INC 


R2 


.STEP PTR TO NEXT SLAVE 


33QH 


00b70b 


022701 


000010 






CMP 


»8 ,R1 


.GO TO 4t IF ALL SLAVES NOT 


3305 


00b712 


001371 








BNE 


4t 


.CHECKED 


330b 


00b7m 


0007b0 








BR 


21 


.OTHERUISE GO TO 21 ABOVE 


3307 


















3308 


00b71b 


110037 


00100b 




b% 


novB 


RO.dlDRVNUn 


.PASS DRIVE I SLAVE 1 


3309 


00b722 


110137 


001007 






novB 


Rl.dfSLUNUn 




3310 


00b72b 


00H737 


006170 






JSR 


PCdiSLVRVR 


.AND CHECK IF AVAILABLE 


3311 


00b732 


1023b't 








BuC 


6i 


. 'V BIT SET ON RETURN INO- 


ZZ\2 


CGb7jH 


llb037 


001134 


014130 




novB 


DIGTn6(R0).dfE DRV 


.ICATES ERROR PREPARE ERPOR 


3313 


O0b7H2 


llbl37 


001134 


014140 




novB 


DlGTRB(Rl).dtE NflVfl 


. MESSAGE 


331>4 


C0b760 


OOOOOH 


014122 






TYPE.E 


NSLV 




3315 


00b75k 


110b37 


001125 






nouB 


SP.dtERFLG 


;SET ERROR INDICATOR 


331b 


00b7b0 


105012 








CLRB 


(R2) 


.CLEAR SLAVE TABLE ENTRY 


3317 


00b7b2 


0007H7 








BR 


%S 


.GET NEXT SLAVE 


3318 


















3319 


00b7b>( 


105737 


001125 




7S 


TSTB 


dlERFLG 


.BRANCH IF NO ERROR 


3320 


00b770 


001403 








BEQ 


lOOS 




3321 


00b772 


105737 


oon2b 






TSTB 


dIPPGFLG 


.BRANCH IF NOT 'ALL' 


3322 


00b77b 


OOlblb 








BEQ 


SLAVES 


.ASK USER TO RETYPE SLAVES 


3323 


007000 


012737 


003b62 


000004 


loot 


MOV 


lERRTRP.dlERRVEC 




332H 


















3326 










.SCRN 


DIVE AND 


SLAVE TABLE FOR DRIVE/SLAVE COMBINATION TO TEST 


332b 


00700b 


105037 


00 100b 






CLRB 


dtORVNUn 


.SET DRIVE AND SLAVE 8 0 


3327 


007012 


105037 


001007 






CLRB 


dISLVNUn 




3328 


00701b 


012737 


001 Ibb 


001010 




nov 


»SLVTBL,dlSLWPTR 


- .SET PTR TO SLAVE TABLE 


3329 


00702'4 


105037 


001127 






CLRB 


dtUNTFNO 


CLEAR UNIT FOUND' IND 


3330 


















3331 


007030 


1 1 3700 


00100b 




BEGIN 


nOVB 


dIDRVNUM. RO 


.GET DRIVE « 


3332 


00703H 


113701 


001007 






HOVB 


dtSLVNUM PI 


.AND SLAVE « 



02TUD-D TMOZ DRIVE FUNCTION TIMER 
02TUDD Pll 27-0CT-77 11 17 

3335 0070M0 013702 OOlOlO 

3336 0070i4>4 105760 001156 

3337 007050 001011 

3338 007052 005001 

3339 0070BH 062702 000010 
33H0 007060 00B200 

33m 007062 022700 000010 

33M2 007066 001366 

33M3 007070 000137 013016 

33'4M 

:3H5 00707H 105712 

33146 007076 001007 

3347 007100 005202 

3348 007102 005201 

3349 007104 122701 000010 

3350 007110 001371 

3351 007112 005001 

3352 00'114 000761 
3353 

3364 007116 110637 001 12^ 

3356 00-122 11003-' 00100b 



F 8 

nflCYll 30(1046) 27-0CT-77 13 42 
PROGRRn INITIRLIZRTION 





nov 


dtSLVPTR/ R2 


IS 


TSTB 


DRVTBL(RO) 




BNE 


zs 




CLR 


Rl 




ROD 


18. .R2 


2% 


INC 


RO 




ChP 


IS. 'RO 




BNE 


If 




jnp 


dtCND 




TSTB 


(R2) 




BNE 


4S 




INC 


R2 




INC 


Rl 




CMPB 


«8 .Rl 




BNE 


3S 




CLP 


Rl 




BR 


ZS 


45 


MOUB 


Sf, JIUNTFNO 




nov'B 


PO dlDRUNUn 



PRGE 20 



,GET SLAVE PTR 

.BRRNCH IF DRIVE RVRIL TO TEST 
,CLERR SLRVE i 

/RNO STEP PTR TO NEXT DRIVE'S 
/SLRVES RND INCREMENT DRIVE « 
,EXIT TEST IF RLL DRIVES 
.CHECKED OTHERUISE CONTINUE 
,SCRN FOR NEXT 'UNIT' 

,BRRNCH IF SLRVE ON DRIVE IS 
.RVRILRBLE THERUISE STEP 
,PTR TO NEXT SLRVE 
, INCREMENT SLRVE i 
; UNTIL ALL SLRVES CHECKED 
,MHEN RLL SLRVES CHECKED 
,SET SLRVE « 0 
,RN0 CONTINUE SCRN 

, INOICRTE THRT fl 'UNIT' IS FOUND 
.SET DRIVE 3 



G 8 

D2TU0-D TtIOZ DRIVE FUNCTION TlflER nfiCYll 30(10Hb) 27-0CT-77 13 42 POGE Z"* 

DZTUOO PH 27-0CT-77 13 17 PROGRflM INI T IRL I ZflT ION 



SEQ 0097 



33i>0 
3361 
3362 
3363 
336'4 
336S 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3 374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3334 
338B 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
339B 
3396 
3397 
3398 
-399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
341: 



007126 
007132 

C07136 
007142 
007144 

007152 
007156 
007164 
007166 
007172 
007176 
007202 
007206 
007210 
007214 
007216 
007222 

007224 
007230 
007236 
007240 
007244 
007250 
007254 
007260 
007262 
007266 
007270 
007274 

007274 
007302 
007306 
007314 
007322 
007330 
007336 
007340 
007346 
007352 
007356 
007362 
007370 
007372 
007376 
007400 
00740H 
007410 
007414 
007416 



110137 001007 

010237 001010 

105737 001132 
001054 

112737 000001 



5S 



001132 



105037 
023737 
001417 
000004 
004737 
012703 
122713 
001406 
122713 
001350 
111337 
000424 

105037 
023737 
001416 
C00004 
004737 
012703 
122713 
001405 
122713 
001356 
111337 



052737 
000004 
116037 
116137 
112737 
032765 
001403 
112737 
000004 
004737 
000004 
012737 
010500 
062700 
010501 
062701 
012703 
105737 
001402 
000137 



001126 

000042 000046 

013710 
003476 
001266 
000060 



000061 
001126 

001131 
000042 

013751 
003476 
001266 
000060 

000061 

001131 



000100 
014474 
001134 
001134 
000071 
010000 

000067 
014607 
005620 
014710 
007422 

G00006 

000012 
004470 
001126 

C13110 



000046 



6% 



novB 


Rl.dlSLVHUn 


,SET SLPVE i 


nov 


09 SMCI WDTD 


caur ci our ptb 


TSTB 


dtflSFLG 




BNE 






nouB 


I1.RSFL6 




CLRB 


aiPRGFLG 


,CLEfiR PROGRPn INDICPTOR 


CMP 


dl42,di46 


; OCT 11 fiUTO nODE'' 


BEQ 


6t 


, YES. DON'T RUN SKEW TESTS 


TYPE, i 


SKEU 


;PSK USER IF HE UPNTS TO RUN SKEU 


JSR 


PC/ INPUT 


;GET USER INPUT 


tiou 


«INBUF,R3 


/GET REPLY 


CMPB 


»'0, (R3) 


/BRPNCH IF 'NO' (0) 


DtU 


6t 




CtlPB 


•1, (R3) 


-CHECK IF 'YES' (1) 


BNE 


S% 


/NEITHER SO RSK flGfliN 


novB 


(R3),aiPRGFLG 


/SET INOtCflTOR 


BR 


7S 




CLRB 


atNRZFLG 


/CLEAR NRZ INDICATOR 


CMP 


d«42/at46 


/ACT 11 AUTO MODE? 


BEQ 


7S 


/YES NOT NRZ ONLY 


TYPE, 1 


NRZ 


/ASK USER IF DRIVE 'NRZ' ONLY 


JSR 


PC- INPUT 


/GET USER INPUT 


MOV 


«INBUF.R3 


/GET REPLY 


CMPB 


« '0> (R3) 


/BRANCH IF 'NO' (0) 


BEQ 


74 




CMPB 


»'\, fR3) 


/CHECK IF 'YES' M) 


BNE 


bS 


/ASK AGAIN IF NEITHEP 


nouB 


(R3),d«NRZFLG 


/SET INDICATOR 



75 



1 77560 


TYPHDP 


BIS 


•100/ dITKS 






TYPE/L. 


HORl 


014654 




novB 


DlGTA6(R0)/dtL DRU 


014666 




novB 


0IGTAB(Rl)/diL SLV 


014671 




flOVB 


l'9/dtL CHRN 


000026 




BIT 


tCH7/DT(R5) 






BEQ 


It 


014671 




novB 


•'7/dtL CHRN 




IS 


TYPE/L 


HDR2 






JSR 


PC-SNPT .GO 






TYPE/L 


H0R3 


001004 




flOV 


ITSTOOl/dtSCPADR 




riov 


R5-R0 






ADD 


•FC-RO 






nov 


R5/R1 






ADO 


•DS/Rl 






flOV 


• Tlf1ER/R3 






TSTB 


dtPRGFLG 






BEQ 


TSTOOl 






jup 


dfSKEUTST 



•SET KEYBOARD IE BIT 

/SET DRIVE 9 
/AND SLAVE « 

/GET SLAVES CHANNEL TYPE 



SET 7 CHANNEL 

PPINT SERIAL NUMBER 

.SET 'SCOPE' ADDRESS FOP FIRST TEST 

.RO CONTAINS ADDRESS OF FC REG 

,R1 CONTAINS ADDRESS OF OS REG 
/SET JUtlP ADDRESS TO TlflER 
•BRANCH IF NOT SKEW TESTS 



007H22 


112737 


000001 00 1124 


TSTOOl 


novB 


«l,JITSTNUn 


007H30 


012702 


007464 




nov 


llt/R2 




004737 


006362 




JSR 


PC. REMIND 


007440 


102420 






BVS 


991 


007442 


004737 


006444 




JSR 


PC/ UR ITE 


007446 


004737 


004400 




JSR 


PC/ TinON 


007462 


006216 






INC 


/ DC 1 


007464 


0067b6 


000032 


IS- 


TST 


TC(R6) 


0074b0 


100002 






BPL 


2S 


00"'4b2 


000163 


004470 




jnp 


TinER'R3) 


00746b 


004737 


006266 


2S 


JSP 


PC/UPITRD^ 


007472 


102403 






BVS 


99t 


007474 


004737 


004626 




JSR 


PC.TIflOK 


007600 


000401 






BR 


loot 


007602 


104400 




99S 


HLT 




007604 


104000 




lOOS 


SCOPE 





CZTUD-D Tn02 DRIVE FUNCTION TiriER 
D2TUD0 Pll 27-0CT-77 13 17 



3414 
3416 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
34 23 
f\) 
34 24 
34 26 
3426 
342^ 
3428 
34:9 
3430 
3431 
3432 
3433 
3434 
34 36 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3446 
3446 
3447 
3448 
3449 
3460 
3461 
3462 
3463 
3464 
3466 
3466 
3467 
3468 
3469 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
34fcr 

3468 



nflCYll 30(1046) 27-OCT 
START OF TESTS 



h 
•77 



8 

13 



42 PAGE 24-1 



SEQ 00«»8 



SBTTL START OF TESTS 
;TEST 001 - URITE FROM BOT 

/THIS TEST UILL tlERSURE RCCELERRTION DELAY REQUIRED TO 
/tlOVE THE TAPE RPPROXinRTELY SEVEN (7) INCHES FORUARD 
/FROn DEAD STOP BEFORE STARTING TO TRANSFER DATA 

/THIS TEST MEASURES TIHE FROM 'GO'sl TO 'ACCL'»0 

/SET TEST i 

/SET RETURN PC FROn TIMER 
/REUIND SLAUE 

/BRANCH IF ERROR ON PEUIND 
/GO SETUP URITE COMriANO 
/TURN TIMER ON 
/SET 'GO' BIT 

/BRANCH UHEN 'ACCL'=0 

/GO TO TIMER 8. RETURN VIA R2 

/MAiT FOR COMMfiNO TO FINISH 
/BRANCH IF ERROR 
/GO CHECK TIME 



TEST 002 - URITE START 

THIS TST MEASURES TIME FROM 'G0'=1 TO 



007606 
007614 
007620 
0076^4 
007630 

007632 
007636 
007640 

007644 
007660 
007662 
00''666 

007660 
007662 



007664 
007672 
007676 

007600 
0076U2 
007604 
007610 



112737 
004737 
012702 
004737 
006216 

006766 
100002 
000163 

004737 
102403 
004737 
000401 

104400 
104000 



112737 
004737 
006216 

006710 
001 ■4 04 
032711 
001017 



000002 001124 


TST002 


MOVB 


12/dlTSTNUn 


005444 




JSR 


PC/ URITE 


007532 




MOV 


R1S/R2 


00U400 




JSR 


PC/TIMON 






INC 


(P6) 


000032 


IS 


TST 


TC(R6) 






BPL 


2S 


004470 




JMP 


TinER(R3^ 


006266 


2S 


JSP 


PC/HAITRDY 






BVS 


99S 


004626 




JSR 


PC- TIMOK 




BR 


IOCS 




99S 


HLT 






lOOS 


SCOPE 





000003 001124 
006444 



04000: 



-TEST 003- WRITE SHUTDOWN 

.THIS TEST MEASURES TIME FROM 'FC PEG'^ 

TST003. MOVB «3-dlTSTNUn 

JSR PC/ URITE 

INC (R6) 



IS 



TST 
BEQ 
BIT 
BNE 



(RO) 
2S 

»ERP. fRn 
99S 



•flCCL'=0 
/SET TEST 9 2 
INITIATE URITE COMMAND 
/SET RETURN PC FROM TIMER 

SET 'GO' BIT 

.BRANCH UHEN ■OCCL"=0 

/GO TO TIMER i RETURN VIA R2 

.UAIT FOR READY 
BRANCH IF ERROR 
.GO CHECK TIME RECORDED 
/EXIT VIA SCOPE 

.REPORT ERROR 



:0 TO 'SUDN'M 
■SET TEST83 

.INITIATE UP ITE COMMAND 
.SET 'GO' BIT 

.BRANCH UHEN URITING FINISHED 
MONITOR ERROR BiT 



DZTUD-D Tn02 DRIUE FUNCTION TlflER 
DZTUDD Pit 27-0CT-77 13 17 



34fa9 


007612 


000772 




3H70 








Z^?\ 


00761H 






<\) 


007614 


004737 


004400 


3»*72 


007620 


010702 




3473 


007622 


032711 


000020 


3H74 


007626 


001002 




3*4 76 


007630 


000163 


004470 


3H76 








3U"'7 


007634 


004737 


005256 


>78 


007640 


102403 




31479 


007642 


004737 


004526 


3H80 


007646 


00C401 




3»481 


007660 


104400 




3'4S: 


00^651 


104000 




34E3 
















3M86 








3H86 


007b54 


112737 


000C04 


3M87 


007662 


004737 


005444 


3MS8 


007666 


C05215 




3H89 








3H90 


007670 


005710 




3H91 


007672 


001404 




3H92 


007674 


032711 


040000 


3»493 


007700 


001026 




3*494 


007702 


0007-'2 




3495 








3496 


007704 


032711 


000020 


3497 


007710 


001004 




3498 


007712 


032711 


040000 


3499 


007716 


001017 




3500 


007720 


000771 




3501 








3502 


007722 






(1) 


007722 


004737 


004400 


3503 


007726 


010702 




3504 


007730 


032711 


000020 


j50B 


007734 


001402 




3506 


007736 


000163 


004470 


3507 








3508 


007742 


004737 


005256 


3509 


007746 


102403 




3510 


007760 


004737 


004526 


3511 


007754 


000401 




3512 








3513 


007756 


104400 




3514 


007760 


104000 




3515 








3516 








3617 








3518 


007762 


112737 


000005 


3619 


007770 


004737 


006362 


( 1 ) 


007774 


102422 




3520 


007776 


004737 


005462 


3521 


010002 


012702 


010014 



I 8 
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STRRT OF TESTS 



SEQ 0099 





BR 


It 










ICD 


or T 1 Mnu 

r L » 1 1 nun 




riou 


PC,R2 


34 


BIT 


RSOUN, (Rl) 




BNE 


4f 




JflP 


TinER(R3) 


4t 


JSR 


PC.UfllTROY 




BUS 


991 




JSR 


PCTinOK 




BR 


loot 


994 


HLT 




100% 


SCOPE 





, TEST 004 - WRITE SETTLEOOWN 
,THIS TEST MEASURES TlflE FROM ' 



TST004 


novB 


«4. aiTSTNun 






PC UBITF 




1 Kir 




It 


TST 


(RO) 




BEQ 


2t 




R 1 T 

D 1 1 


tERP, 'Rl 1 




BNE 


99t 




BR 


It 


2t 


BIT 


XSOUN, 'RD 




BNE 


3t 




BIT 


KERR. 'RD 




BNE 


99t 




BR 


:t 


3t 








JSP 


PC.TinON 




nov 


PC.P2 




BIT 


«SDUN. (Rl • 




BEQ 


6t 




JflP 


TmEP«P3) 


5t 


JSR 


PC - WfllTPD'i 




BVS 


99t 




JSR 


PC. Tinor 




BR 


loot 


99t 


HLT 




loot 


SCOPE 





,TURN TIMER ON 

AOflD RETURN PC FROM TIMER 

, BRANCH UHEN OS <SOUN> SETS 

,G0 TO TIMER & RETURN Vlfl R2 

,UfilT FOR READY 

.GO CHECK TIME RECORDED 

, REPORT ERROR 

'=1 TO "SUDN'sO 

,SET 'GO' BIT 

, BRANCH UHEN URITING FINISHED 
.CHECK ERROR BIT 

UP IT FOP ASSERTION OF SDUN' 
.MONITOR ERROR BIT 

-TURN TIMER ON 
SET RETURN PC FROM TIMER 
BRANCH UHEN SUON CLEARS 

GO TO TIMER i RETURN VIA R2 

MR IT FOP PERD> 



.TEST 006 - READ FROM BOT 

.THIS TEST MEASURES TIME FROM 'G0'=1 tq •ACCL=0 

TST005 MOVB •6.ilTSTNUM .SET TEST »5 

JSR PC. REMIND .REUIND SLAVE 

BVS 99t .BRANCH IF ERROR ON REUIND 
JSR PC READ , 
MOV »\t.R2 SET RETURN PC FROM T'MEP 



OZTUOO Pll 



3622 
3523 
3524 
3525 
352b 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
353b 

zsz-^ 

Z538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3562 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
(1) 
3574 
3575 
3676 



010006 
010012 

010014 
010020 
010022 

010026 
010032 
010034 
010040 

Q10C42 
010044 



010132 
010140 
010144 
010146 
010162 

010164 
010160 
010162 
010166 
010170 

010172 
010172 
010176 
010200 
010204 



VE FUNCTION TIMER 


wit 

nRCY 1 1 


J0( 1046) 


J 


-OCT-77 


U 17 


STBRT 


OF TESTS 




004737 


004400 




ICD 


or T 1 MniJ 
rt/ 1 inUN 


006216 






INC 


(R6) 






li 


TCT 

T5T 


/ DC 1 

TC (Kb) 


100002 






DrL 


2t 


000163 


004470 




jnp 


TmER(R3) 


004737 


005256 


Off 

2S 


ICD 


D^ Ufl 1 TDnv 
rt» HH I 1 ROT 


1 1174 G3 






Bus 




004737 


004526 




ICD 
JdK 




000401 






BR 


lOOf 


104400 




99S 


UI T 

HLT 




104000 




1 nm 

lUUa 







8 

13 
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SEQ 0100 



,TURN TIMER ON 
,SET 'GO' BIT 

, BRANCH UHEN 'flCCL' RESETS 

,G0 TO TIMER & RETURN VIP R2 

,UAIT FOR READY 

, BRANCH If ERROR 

, CHECK RECORDED TIME 



,TEST 006 - RERD START 
,THIS TEST MEASURES TIME FROM 



010046 
010054 
010060 
010062 
010066 
010072 
010076 


112737 
004737 
102422 
004737 
012702 
004737 
005215 


000006 001124 
005536 

005462 
OlClOO 
004400 


TSTOOb. 


MOVB 

JSR 

BVS 

JSR 

MOV 

JSR 

INC 


«6. dITSTNUM 
PC/URT BK 
99S 

PC, READ 
• 1S,R2 
PC^TIMON 
(R6) 


010100 
010104 
010106 


005765 
100002 
000163 


G00032 
004470 


IS 


TST 
BPL 
JMP 


TC(R6) 
TIMER(R3) 


Q10112 
010116 

010120 
010124 


004 7 37 
102403 
004737 
000401 


005256 
00U526 


IS 


JSR 
BVS 
JSR 
BR 


PCURITROY 
99» 

PCTinOK 
lOOf 


010126 
010130 


104400 
104000 




995 
100V 


HLT 
SCOPE 





'G0*=1 TO 'ACCL'sO 

,SET TEST «6 

,URITE A RECORD & BACK SPACE 



,SET RETURN PC FROM TIMER 
.TURN TIMER ON 
.SET 'GO' BIT 

.BRANCH UHEN 'ACCL' RESETS 
.GO TO TIMER & RETURN VIA R2 



112737 000007 001124 
004737 006536 
102430 

004737 006462 
005215 

022710 
001404 
032711 

orm7 

0C0771 



.TEST 007 - READ SHUTDOHH 
.THIS TEST MEASURES TIME FROM 
TST007 



000400 
040000 



IS 



004737 
01C702 
032711 
001002 



004400 
000020 



MOVB 


17. dITSTNUM 


JSR 


PC.URT. BK 


BVS 


99S 


JSR 


PC. READ 


INC 


(R6) 


CMP 


• -FRMCNT. (RO) 


BEQ 


1\ 


BIT 


lERR. (Rl) 


BNE 


99S 


BR 


IS 


JSR 


PC.TinON 


MOV 


PC. R2 


BIT 


SsbuN, (Rl) 


BNE 


3S 



"FC REG '-FRAME COUNT TO •SUDN'=1 
.SET TEST 87 

.URITE A RECORD & BACK SPACE 
.BRANCH IF ERROR 

.SET 'GO' BIT 

•URIT FOR FRAME COUNT TO 
.= 8 CF FRAMES WRITTEN 
.MONITOR ERROR BIT 



.TURN TIMER ON 

.SET RETURN PC FROM TIMER 

.BRANCH UHEN SOWN SETS 



DZTUO-D TtIOZ 
02TUD0 PU 



DRIVE FUNCTION TmER 
27-0CT-77 13 17 



tlACYll 30(10^b) 27 
START OF TESTS 



K 

'OCT-77 



8 

13 



^2 PRGE 2^-^ 



3577 
3578 
3579 
3580 
3581 
3582 
3583 
358H 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
359t 
3595 
359b 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
360H 
3605 
3606 
3607 
3608 
(1) 
3609 
3610 
3611 
3612 
3613 
36m 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
362H 
3625 
3626 
3627 
3628 
3629 
3630 
3631 



010206 

010212 
010216 
010220 
01022H 

010226 
010230 



010362 
010360 
01036H 
010370 
010372 
010376 
OlOHOG 
OlOHOH 



OOulbJ 






IHP 

J Mr 


T 1 MPD (91.^ 

1 1 IILR I R J ' 


00H737 


00525b 


3S 


JSR 


PCURITRDY 


4 noil n 7 






D 


991 








JSR 


PC< TinOK 


OOOHOl 






BR 


loot 


lOHUOO 




994 


HLT 




lOHOOO 




lOOi 


SCOPE 





,G0 TO TINER I RETURN VIA R2 



.TEST 010 - READ SETTLEOOUN 
,TH1S TEST MEASURES TIME FROH 'SUDN': 



010232 


112737 


000010 


001124 


TSTOlO: 


nouB 


«io. aiTSTNun 


0102H0 


012702 


010316 






nov 


tmt.R2 


0102'* 


00H737 


U05s3b 








pr UDT 

r L / HK 1 . 


010250 


102H36 








BVS 


99i 


010252 


00H737 


005462 






JSR 


PC>RERD 


01025b 


005215 








INC 


(R5) 


0102b0 


105711 






IS 


TSTB 


(Rl ) 


0102b2 


lOOMOM 








QM 1 

□ n 1 


2S 


0102b>< 


032711 


040000 






BIT 


HERR, (Rl) 


010270 


001026 








BNE 


99% 


010272 


000772 








BR 


IS 


QlOZrH 










B 1 T 


•SDUN« (Rl ) 


010300 


001 OQM 








BNE 


3S 


010302 


032711 


OHOOOO 






BIT 


KERR. (Rl) 


01030b 


001017 








BNE 


99S 


010310 


000771 








BR 


2S 


010312 








3S 




PC, TinON 


010312 


00M737 


004400 






JSR 


01031b 


032765 


000020 


000012 


4S 


BIT 


«SOUN, DS(R5) 


01032M 


oomo2 








BEQ 


5S 


010326 


000163 


004470 






jnp 


TmER(R3) 


010332 


00H737 


005256 




5S 


JSR 


PC.URITROY 


010336 


102H03 








BVS 


99S 


0103H0 


00H737 


004526 






JSR 


PC. TiflOK 


0103MI4 


OOOHOl 








BR 


IOCS 


0103H6 


lOMHGO 






99S 


HLT 




010350 


lOMOOO 






lOOi 


SCOPE 





.REPORT ERROR 



1 TO 'SHON'sO 
;SET TEST «10 
.SET RETURN PC FROM TIMER 
.URITE A RECORD & BACK SPACE 



.SET 'GO' BIT 

;UAiT FOR READY 
.BRANCH MHEN SET 
.CHECK ERROR BIT 



.UAIT FOR ASSERTION OF SDUN' 
. MONITOR ERROR BIT 



TURN TlMfP ON 
.UflIT FOR NEGATION OF SOWN 

.GO TO TIMER & RETURN VIA R2 



112737 
012702 
004737 
005215 
004737 
102422 
004737 
00H737 



000011 
010416 
005444 

005256 

004764 
005500 



001124 



,TEST 011-READ REVERSE START 
.THIS TEST MEASURES TIME FROM 
TSTOll 



•G0'=1 TO •ACCL'=0 



MOVB 


Kll.dlTSTNUn 


MOV 


K1S.R2 


JSR 


PC.URITE 


INC 


(R5) 


JSR 


PC.UAITRDY 


BVS 


99S 


JSR 


PC. DELAY 


JSR 


PC.REVRD 



.SET RETURN PC FROM TIMER 
.WRITE A RECORD 
.SET 'GO' BIT 



WAIT FOP TAPE MOTION TO STOP 



L 8 

D2TUD-D TH02 DRIVE FUNCTION TlflER flflCYll 30(1046) 27-0CT-77 13 H2 PAGE 24-5 

D2TU0D PU 27-0CT-77 13 17 START OF TESTS 



SEQ 0102 



3b32 
3633 
3634 
3636 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
36414 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3663 
3654 
3666 
3666 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
(1 ) 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3676 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 



010410 
010414 



004737 
005215 



004400 



JSR 
INC 



PC/TinON 
(R5) 



,TURN TinER ON 
,SET -GO' BIT 



010416 


006766 


000032 


14 


TST 


TC(R5) 


, BRANCH UHEN 'ACCl - 0 


010422 


100002 






BPL 


24 




010424 


000163 

WWW m Ww 


004470 




JMP 


TinER(R3) 


,G0 TO TIMER & RETURN Vifl 


010430 


004737 


006256 


2S 


JSR 


PC, HfilTRDY 






102403 






BUS 


994 


/BRPNCH IF ERROR 


Q1QI|36 


004737 


004626 

WW~ WAtW 




JSR 


PCTinOK 




Q1Q442 


000401 

W WW « W 1 






BR 


1004 




010444 


104400 




994 


HLT 






010446 


104000 




lOOS 


SCOPE 












,TEST 


012-REflD 


REVERSE SHUTDOUN 










,THIS 


TEST MEflSURES TIHE FROM "FC REG* 


= FRAME COUNT TO SDUN'=1 


010450 


112737 


000012 001124 


TST012: flOVB 


• 12,aiTSTNUt1 




010456 


012702 


010526 




nov 


• 34, R2 


;StT RETURN PC FROM TlntR 


010462 


004737 


005444 




JSR 


PCURITE 


,URiTE R RECORD 


010466 


006215 






INC 


(R5) 


,SET 'GO' BIT 


010470 


004737 


005256 




JSR 


PCHfilTROY 




010474 


102427 






BUS 


994 




010476 


004737 


006600 




JSR 


PCREVRD 




010602 


00621 6 






INC 


(R5) 


CCT " Rft ' PIT 


010504 


022710 


000400 


IS 


CMP 


«-FRnCNT, (RO) 


/BRANCH UHEN FRAME COUNT 


010510 


001404 






BEQ 


24 


;s 1 OF RECORD URITTEN 


010512 


032711 


040000 




BIT 


KERR, (Rl) 


.MONITOR ERROR BIT IN OS 


010616 


001016 






8NE 


994 




010520 


000771 






BR 


14 




010622 






24 






.TURN TIMER ON 


010522 


004737 


004400 




JSR 


PCTinON 


010526 


032711 


000020 


34. 


BIT 


«SDUN, (Rl) 


.BRANCH UHEN SOUN SETS 


010632 


001002 






BNE 


44 


.GO TO TIMER & RETURN UlA 


010634 


000163 


004470 




JMP 


TineR(R3) 


010640 


004737 


006266 


44 


JSR 


PCHfllTRDY 


,URIT FOR READY 


0.0544 


102403 






BUS 


994 




010646 


004737 


004626 




JSR 


PCTinOK 




010552 


000401 






BR 


1004 





010554 
010566 



104400 
104000 



994 
1004: 



HLT 
SCOPE 



,TEST 013-READ REVERSE SETTLEDOUN 
.THIS TEST MEASURES TIME FROM 'SDUN'sl TO ■SDWN'=G 



010660 


112737 


000013 001124 


TST013. MOVB 


•13, d«TSTNUn 


010566 


012702 


010662 


MOV 


•44, R2 


010672 


00H737 


005444 


JSR 


PCURITE 


010676 


006215 




INC 


(R5) 


010600 


004737 


006266 


JSR 


PCUAITROY 


010604 


102436 




BVS 


994 


010606 


004737 


005500 


JSR 


PCREVRD 


010612 


006215 




INC 


(R5) 



.SET RETURN PC FROM TIMER 
.URITE R RECORD 
,SET 'GO' BIT 



.SET "GO BIT 
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3687 








3b88 


U1061H 


4 nc7 1 1 

lUbr 1 1 




3689 


O 4 O^ 4 

□10616 


4 nnu nil 
1 ODHUH 




3b7U 


n 4 0£. on 

U106Z0 


n 7^7 1 1 

03Z71 1 


nunnnn 


3b9l 


n 4 n£. oil 


nn 4 n^c 
OUlOZb 




3e7Z 


0106Zb 


nnn779 
□□Or 




3693 








Jfa9H 


ni t\L, 7n 


n7971 1 


nnnn9n 
uuuuzu 


3b93 


m nc 7ii 


nm nnu 




3696 


010636 


n 797 4 4 

OJZr 1 1 


nunnnn 
040UUU 


3697 


0106HZ 


nn 4 n 4 
OUIUI b 




^Z. OO 

3698 


0106H4 


nnn77 4 
UUUr 




3699 










UlUoHo 






K 1 ) 


U 1 UbHb 


nnu777 

UUH f if 


UUHHUU 


JrUl 


m n^c9 
UlUbbZ 


n7971 1 
U jZr 1 1 


nnnn^n 

UUUUZU 


JrOZ 


UlUbbb 


nni un9 
UUIHUZ 




77n7 


UiUbbU 


nnni 

UUUlbJ 


UUHH r U 










77nc 
Ub 


ni n<.<>u 
u lUbbH 


nnu777 

UU1 f if 


UU9^3w 


77n£. 


ni n^7n 
UlUbr U 


1 n9um 

IUZIUj 






ni n<.79 
U tUbr z 


nni47T7 

UUH f if 


UUH3^w 


77no 


ni nc.7(> 
u I ub f b 


UUUH U I 




77nQ 
jrU7 








771 n 

■if\\J 


ni n7nn 


1 UHHUU 




771 1 


ni 0709 
UlUr UZ 


1 nunnn 

1 UHUUU 




771 O 








771 7 








771 U 


ni n7nu 






K \ } 




UUH fit 




t \ \ 
\\i 




1 n2i4Qi 

1 U I 




771 C 


ni n7i 9 


1 u^uu*» 




jr I B 


nin7iu 


1 nuuoo 




771 7 


nin7i 

U 1 L> r lb 


nnn779 

UUUr r ^ 




771 O 


ni n79n 

U 1 Ur ZU 






77 1 Q 








779n 








77^ 1 








779"? 
if LL 


ni n79n 

U 1 U r ZU 


1 1 9777 
1 1 ^ r Or 


nnoQiu 

UUKJKJ 1 » 


7797 
ZJ 


ni n79<« 

U 1 U r ZD 


ni 97n9 

U 1 ^r 


01 0760 


f 7911 
3/'Z4 


m n779 

U 1 Ur JZ 


nnu777 

UUHr if 






ni n7 7t 
UlU. Jb 


nnc9i c 

UU9ZI9 




779t 

if in 


ni n7un 

U I Ur 1U 


UUH f if 




7797 
if Cf 


ni n7uu 

UlUrtf 


1 UZH ^U 




7790 
if iM 








779Q 
J/' Z7 


ni n7u<> 

U 1 Ur HO 


nnu777 

UUH f if 




77 7n 


ni n7C9 

U 1 Ur bZ 


UUH f if 


nnuunn 


7771 




00^2 1^ 

UU9ai t -J 




7779 
if i^ 








7777 

if a 


ni n7<.n 

U 1 Ur OU 


UU9r 


000032 


77 7li 


m n7di 

UlUrbH 


1 nnnn9 
I uuuuz 






010766 


000163 


00>tH70 


3736 








3737 


010772 


00H737 


00B2B6 


3738 


010776 


102H03 




3739 


OUOOO 


OOH 737 


O0H626 



n 8 
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STflR-^ OF TESTS 



If 


TSTB 


(Rl) 


/BRANCH UHEN 


Bni 


24 


.RERDY SETS 




BIT 


•ERR/ (Rl ) 






BNE 


99% 






BR 


If 






B 1 T 


• SOUN/ (Rl ) 






BNE 


3% 






B 1 T 


lERR. (Rl ) 






BNE 


99% 






BR 


2% 




3S 


JSR 


PC, TItlON 


/TURN TinEP ON 




BIT 


•SOUHr (Rl) 


/BRANCH UHEN SUDN = 0 




BEQ 


5% 


;G0 TO TIMER & RETURN VlO R2 




J HP 


TinER(R3) 


BS 


JSP 


PCUfllTROY 


/URiT FOR READY 




BUS 


99% 






JSR 


PC/ TinOK 






BR 


100% 




99S 


HLT 






100% 


SCOPE 






,REUINO DRIVE 






M. 


JSR 


PC. REUIND 


/REMIND SLAVE 




BVS 


99% 






BVC 


100% 




995 


HLT 








BR 


fl 




lOOS 








;TEST 


Om-TURH 


MOUND DELAY (FORURRD-REVERSE ) 


/THIS 


TEST flEflSURES TlflE FROfI 'GO "si 


(READ REVERSE) TO -ACCL'=0 


TSTOm 


: nouB 


im/dtTSTNUn 


,SET RETURN PC FROH TlflER 


nou 


12%/ R2 




JSR 


PC/URITE 


,URITE A RECORD 




INC 


(R6) 


/SET "GO* BIT 




JSR 


PC/UfllTRDY 






BVS 


99% 




IS 


JSR 


PC/REVRD 


.READ THE RECORD (REVERSE) 


JSR 


PC/TinON 


.TURN TIMER ON 




INC 


(P5) 


/SET -GO' BIT 


2S 


TST 


TC(R5) 


/WAIT FOR 'flCCL' = 0 


BPL 


3% 


/GO TO TIMER & RETURN VIA R2 




jnp 


TmER(R3) 


3S 


JSR 


PC/UfllTRDY 






BVS 


99% 






JSR 


PC/TinOK 





D2TUD-0 Tn02 ORIUE FUNCTION TIMER 
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37'*0 


011004 


000401 






37'»t 










3742 


011006 


104400 






37H3 


011010 


104000 






37HH 










37'»B 










3746 










37'»7 


011012 


112737 


000015 


001 


37'»8 


011020 


012702 


011066 




37H9 


011024 


004737 


006444 




3760 


011030 


006216 






3751 


011032 


004737 


006266 




3752 


011036 


102426 






3753 


011040 


004737 


005500 




375H 


011044 


006215 






3755 










3756 


011046 


004737 


005256 




3757 


011052 


102420 






3758 










3759 


011054 


004737 


005462 




3760 


011060 


004737 


004400 




3761 


011064 


006215 






3762 










3763 


011066 


005765 


000032 




376H 


011072 


100002 






3765 


011074 


000163 


004470 




3766 










3767 


011100 


004737 


00525b 




3768 


011104 


102403 






3769 


011106 


004737 


004526 




3770 


011112 


000401 






3771 










3772 


011114 


104400 






3773 


011116 


104000 






3774 










3775 










3776 


011120 


112737 


000016 


001 


zm 


011126 


012702 


011164 




3778 


011132 


004737 


005444 




3779 


011136 


005215 






3780 


011140 


004737 


005256 




3781 


011144 


102421 






3782 


011146 


004737 


004764 




3783 


011162 


004737 


005500 




378H 


011156 


004737 


004400 




3786 


011162 


005215 






3786 










3787 


011164 


005710 






3788 


011166 


001002 






3789 


011170 


000163 


004470 




3790 










3791 


011174 


004737 


C06266 




3792 


011200 


102403 






3793 


011202 


004737 


004626 




3794 


011206 


000401 






3795 
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START OF TESTS 



SEQ 0104 



BR 



loot 



99» 

loot: 



HLT 
SCOPE 



;TEST 015- TURN RROUND DELAY (REVERSE 
;THIS TEST MEASURES TIME FROtI 'GO'sl 



TST016: MOUB 
MOV 
ISR 
.NC 
JSR 
BUS 
JSR 
INC 

JSR 
BUS 



llS.dlTSTNUn 
121, R2 
PC.URITE 
(R5) 

PC. UA I TROY 
99t 

PCREVRO 
(R5) 

PC, MA I TROY 
99% 



It 


JSP 


PC/ KlHC 




JSR 


PC/ T inoN 




INC 


(K9) 


2t 


TST 


TC(R6) 




BPL 


3t 




JMP 


T 1 MC D / D 7 1 


3S 


JSR 


PC/UAITRDY 




BUS 


99t 




JSR 


t%C T 1 MAV 

PC/ 1 inuR 




BR 


lUOa 


99t 


HLT 




loot 


SCOPE 




;TEST 016-6AP 


SIZE (STOP HALf 


TST016. 


novB 


»16/aiTSTNUM 




MOV 


•lt.R2 




JSR 


PC/URITE 




INC 


(R5) 




JSR 


PC/ MAI TROY 




BVS 


99t 




JSR 


PC/ DELAY 




JSR 


PC/REURD 




JSR 


PC.TinOH 




INC 


(R5) 


It 


TST 


(PO) 




BNE 


2t 




JMP 


TIHER(R3) 


2t 


JSR 


PC/UAITROY 




BVS 


99t 




JSR 


PC/TIHOK 




BR 


loot 



-FORWARD) 

(READ) TO 'ACCL'sO 

/SET RETURN PC FROM TIMER 
/URITE A RECORD 
/SET 'GO" BIT 
/UAIT FOR READY 

/READ A RECORD IN THE 
;SET 'GO' BIT 



/READ RECORD FCRUARD 
/TURN TIMER ON 
/SET 'GO' BIT 

/UAIT FOR 'ACCL' = 0 

/GO TO TIMER & RETURN VIA R2 



/SET RETURN PC FROM TIMER 
/URITE A RECORD 
/SET 'GO' BIT 



/DELAY 360 MS 
/READ REVERSE RECORD 
/TURN TIMER ON 
.SET 'GO' BIT 

,MA"T FOR FRAME COUNT > 0 

/GO TO TIMER I RETURN VIA R2 

/WAIT FOR READY BIT TO SET 

/CHECK TIME 
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OZTUOO Pit 27-0CT-77 13 17 



tlRCYU 30(10^&) 
START OF TESTS 



379S 


011210 


104400 






99f 


HLT 


3797 


011212 


104000 






lOOS. 


SCOPE 


3798 














3799 










/ TEST 


A 4 9 A AB 1 

017-uRP ' 


3800 


01121*4 


112737 


000017 


AA4 4 Ala 

001 1 24 


TST017 


■ novB 


3801 


011222 


012702 


011274 






MOV 


3802 


011226 


004737 


005444 






I^B 

JSR 


3803 


011232 


006216 








INC 


380*4 


01123*4 


004737 


005256 






ico 


3806 


0112*40 


102427 








Bub 


3806 


0112*42 


004737 


005500 






1 P B 

JSR 


3807 


0112*46 


006215 








1 NC 


3808 


011260 


onii 9 99 

004737 


AAC 4C t 

006266 






ICO 


3809 


01126*4 


A Ala A A 

102H21 








BVS 


3810 


01 1256 


A Alfe 9 99 

004737 


004764 






ICD 


381 1 


011262 


AAla 9 99 

004737 


A AP li ^ 

006462 






ICO 


3812 


01 1 266 


004737 


AAla la A A 
ODHHOO 






Jaw 


3813 


01 1272 


005219 








INC 


381'* 












TCT 


3816 


011274 


006710 






4 ft 
l9 


3816 


01 1276 


An 4 AA^ 

001 ooz 








Drit 


3817 


n A 4 9nn 

011300 


OUUlbi 


AAla ll 7n 






IHP 


3818 












ICD 


3819 


n 4 4 9mi 

011304 


□OH 737 


UObZbb 




3eZ0 


01 1 J lU 


lUZHUJ 








D Vd 


3821 


011312 


AAla 9 99 

004737 


AAli C 

004b<.6 






JSR 


3822 


01 1316 


AAAIa A 4 

000401 








OD 


3823 












HLT 


382*4 


A 4 4 9>m 

011320 


4 All li AA 

104400 






99S 


3826 


011322 


4 Ala nnn 

104000 






lOOS 


SCOPE 


9a/i£ 

3826 












020- GAP 


3827 










,TEST 


3828 










,THIS 


TEST riEfl 


3829 


n 4 4 94li 

01 1324 


1 1 2737 


UUUUZU 


nni 1 9u 

UUl 1 


TST020 M0V8 


3830 


01 liiZ 


01 Z70Z 


n 1 4 u 1 li 
Ul iH l** 






flOV 


3831 


n 4 4 9 9/. 

01 1336 


004 737 


nncuuLi 
UObHHH 






JSR 


3832 


n 4 4 91l 4 

01 1342 


00bZl9 








INC 


3833 


01 1344 


004737 


ODbZbb 






JSR 


9A 9li 

383'4 


n 4 4 n 

oil 360 


4 n^ii 77 
10Z433 








BVS 


3335 


01 1352 


A All 9 99 

004737 


nncu 111! 
00b444 






JSR 


3836 


01 1356 


A AP 4 4 f 

OObZlb 








INC 


3837 


011360 


AAla 9 99 

004737 


OObZbb 






JSR 


3838 


01 1364 


10Z4Z5 








BVS 


3839 


n 4 4 9£ 

01 1366 


nnu 7 77 

004737 


nnccnn 






JSR 


38H0 


Ui i^f ^ 


UUb^ IS 








INC 


38m 


01 13rH 


004 737 


UUb^bb 






JSR 


3842 


n 4 4 !■ nn 

01 1400 


4 O^U 4 7 

10Z41 7 








BVS 


9 ail 9 

38*4 3 


n 4 4 !■ 

01 1402 


nnii 7 77 
004 737 


nnccnn 
UUbbUU 






JSR 


9 Oil li 


01 140o 


nnu777 


nnuunn 






JSR 


38*45 


011412 


006215 








INC 


io'4b 










IS 


TST 


3847 


011414 


006710 






3848 


011416 


001002 








BNE 


3849 


011420 


00C163 


004470 






JHP 


3860 












JSR 


3851 


011424 


004737 


006266 




25 
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SEQ 0106 



IZE (STPRT HRLF) 
il7,atTSTNUn 
llf,R2 
PCURITE 
(R5) 

PCWfllTRDY 
99i 

PCREVRO 
(R6) 

PCWfllTROY 
991 

PC.DELRY 
PCRERD 
PCTinON 
(R5) 

(RO) 
2S 

Tlf1ER(R3) 

PC UR I TROY 
99S 

PC.TinOK 
lOOS 



,SET RETURN PC FROM TIMER 
.URITE R RECORD 
,SET "GO" BIT 
,URIT FOR RERDY 

.RERD REVERSE THE RECORD 

,SET 'GO' BIT 

;URIT FOR RERDY 

,BRRNCH ON ERROR 

.URIT FOR TRPE MOTION TO STOP 

;RERO RECORD 

,TURN TIMER ON 

,SET 'GO' BIT 

;WRiT FOR FRRME COUNT > 0 

,G0 TO TIMER 8. RETURN VIR R2 

,gRlT FOR RERDY 

, CHECK TIME 



SIZE liNTERRECORD) 
URES TIME FROM 'GO' 

«20.atTSTNUn 

ll%,R2 

PC.URITE 

(R6) 

PCHfllTRDY 
995 

PC.URITE 
(R6) 

PCURITRDY 
99* 

PCREVRO 
(R6) 

PC.URITRDY 
99f 

PC.REVRD 
PCTIMON 
(R6) 

(RO) 
IS 

TmER(R3) 



=1 TO 'FC REG' >0 

,SET RETURN PC FROM TIMER 
;URITE R RECORD 
;SET 'GO' BIT 
,HRIT FOR RERDY 

.URITE SECOND RECORD 
,SET 'GO' BIT 
,URIT FOR RERDY 

.RERD REVERSE SECOND RECORD 
,SET GO' BIT 
.URIT FOR RERDY 

.RERD REVERSE FIRST RECORD 
;TURN TIMER ON 
,SET 'GO' BIT 

,URIT FOR FRRME COUNT > 0 

-GO TO TIMER 8. RETURN VIA R2 



PC.URITRDY 



,URIT FOR PERDV 
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SCO 0106 



3852 
38S3 
3864 
38SS 
38S6 
3857 
3868 
3869 
3860 
3861 
3862 
3863 
3864 
3866 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
(1) 
3874 
3876 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3886 
3886 
3887 
3888 
3889 
3390 
3891 
3892 
3893 
3894 
3896 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3906 
3906 



011430 
011432 
011436 

011440 
011442 



011444 
011462 
011466 
011462 
011464 
011470 
011474 
011600 
011602 
011606 
011610 
011614 
011622 
011624 

011626 
011532 
011636 
011640 
011644 
011646 
011660 

011562 
011666 
011662 
011S66 

011670 
011674 
011676 
011602 
011606 

011610 
011614 
011616 



102403 
004737 
000401 

104400 
104000 



004626 



112737 
C12702 
004737 
102630 
006037 
012700 
004737 
006216 
004737 
102616 
004737 
062737 
006300 
001363 

012700 
004737 
006216 
004737 
102477 
006300 
001370 

012700 
012701 
004737 
006216 

004737 
102463 
004737 
004737 
006216 

006766 
001002 
000163 



000C21 
011610 
006362 

001116 
000021 
0064>«4 

00626b 

006014 
000022 



000021 
006500 

006266 



000020 
001066 
0064b2 



006266 

006462 
004400 



000006 
004470 



994 

loot 



BVS 
JSR 
BR 

HLT 
SCOPE 



99S 

PCTinOK 

loot 



001124 



.TEST 021- GfiP COHSISTflNCY 

.THIS TEST MEASURES TIME FROM 'GO'sl TO 'FC REG' > 0 

.THE TEST REMINDS THE TRPE,HRITES 17 RECORDS UfTH fl OELPY FROM 1-16 MS 
.BETWEEN EfiCH HRITE COriMflND. RFTER THE 17. RECORDS ARE HRITTTEN THE 
, PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
.TUEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 
.THE 16 RECORDS HITH THE TIME BETEHEN G0=1 TO FC > 0 STORED IN 'GAPTBL' 
.FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
,IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 
,AGE0 AND PLACED IN THE 'ATIHTBL' (BY SCOPE). THE ABOVE PROCESS IS RE- 
.PEATED FOR EACH ITERATION. 



.SET RETURN PC FROM TIMER 
; REMIND SLAVE 

.BRANCH IF ERROR ON REUIND 
.CLEAR VARIABLE DELAY TIME 
.SET I OF RECORDS TO URiTE 
.URITE 17. RECORDS 
.SET 'GO' BIT 
.UAIT FOR READY 



IS 



001116 



2S 



3t 



4% 



MOVB 


»21.dtTSTNUn 


MOV 


«44.R2 


JSR 


PC. . REMIND 


D If C 

BVS 




CLR 


OELTIM 


MOV 


tl7. ,R0 


JSR 


PC, URITE 


INC 


(R5) 


JSR 


PC. HA 1 TROY 


D If C 

BVb 


QOC 
77» 


JSR 


PCDELAYV 


ADO 


»18. .OELTIM 


DEC 


RO 


BNE 


It 


MOV 


»17 .RO 


JSR 


PC.REVRD 


INC 


(R6) 


JSR 


PCUAITRDY 


BVS 


99t 


DEC 


RO 


BNE 


2t 


MOV 


116. .RO 


MOV 


tGAPTBL.Rl 


JSR 


PC. READ 


INC 


(R6) 


JSR 


PCUAITRDY 


BVS 


99t 


JSR 


PC. READ 


JSR 


PC.TIMON 


INC 


(R6) 


TST 


FC(R5) 


BNE 


6t 


JMP 


TmER(P3) 



.DELAY BEFORE URITING NEXT REC 

.SET NEXT DELAY TIME 

.DECREMENT RECORDS WRITTEN COUNT 



.SET S OF RECS TO REVERSE READ 
.REVERSE READ 17 RECORDS 
.SET 'GO' BIT 
.WRIT FOR READY 

.DECREMENT RECORD COUNT 



, SET Of RECORDS TO READ 
.SET PTR TO GAP TABLE FOR TEST 
.PEAD A RECORD 
SET 'GO' BIT 

.UAIT FOR READY 

.READ NEXT RECORD 
.TURN TIMER ON 
.SET 'GO' BIT 

.URIT FOP FRRME COUNT > 0 

, GO TO TIMER h RETURN VIA P2 
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7on7 
Sfuf 








37O0 


U 1 ibZZ 


nnii7 77 
004^37 


UUbZbb 


7QOQ 


Ul ibZb 


lOZHHb 




n 

37 lU 


ni 1 7n 
Ul ib3U 


n 1 nu ^ 1 
UlU'tZl 




371 1 


nil C7'7 


nnc7nn 
UUb3UU 




371^ 


mi C7U 
Ul lb3H 


nni 7CC 
UU1 JSS 




3713 








701 U 

37IH 


t\\ \L. 7^ 

Ul lb3b 


1 ncn77 
lU9U3r 


nni 1 99 

UUl 1 


701 C 

3719 


Ul IbH^ 


ni 97nn 

Ul ^rUU 


nnnn9n 

UUUU^U 


37 lb 


nil 

Ul ibHb 


ni 97ni 

Ul Ul 


nm ncc> 

UU I U9b 


37 » f 








37 10 


nil CC9 
Ul 1 bb^ 


n 1 9 1 nu 
u 1 ^ 1 ut 




3717 


nil <>cu 

Ul IDSt 


nnb777 

UU1 f ■if 


nnb<>7(k 


J7ZU 


nil t>t>n 
u 1 1 bbu 


1 nC9 77 


nni 1 99 

UU 1 1 


<i7^ 1 


ni 1 <><>b 
u 1 1 bbl 


1 99777 


nnnn9n 

uuuu^u 




Ul Ibr i 


nni 7fc7 




j7£ J 








7Q?U 


ni 1 ft 7b 


ni 97nn 

U 1 £ r UU 


000020 
uuuu^u 


7Q9C 
J7^9 


ni 1 7nn 

U 1 1 r UU 


ni 97ni 

U 1 U 1 


UU 1 w30 


7Q9C> 
j7^D 


nil 7nu 


nni;nn9 

UU9UU^ 




7Q97 


nil 7nfe 


nntinn7 




7Q9fi 
o7£0 


ni 1 7in 


nfi2102 

UD^ 1 U£ 




«J7^7 


ni 1 712 


005^07 




7970 
«j7«JU 


m 1 71 b 

U 1 1 r 1 ~ 


00^700 




7971 


ni i7ifi 


001 77b 

UU I ~ 




7979 


ni 1 79n 


01 9700 


000001 

u wwww~ 


7977 


nil 72b 


00(>207 




79 7U 

07^~ 


01 1 72fe 


006002 




79 7>; 


01 1770 


00^700 




797(> 
07«3D 


ni 1 772 


001 77b 




7977 


01 173U 






7978 


01 1716 


00H737 


00b526 




01 17il2 


nnnbQi 

www ■ W 1 




79un 








79U1 

07t 4 




IQbbOQ 

1 W ' » WW 




79U2 

J7~fc 


01 1 7U6 


1QUQQ0 

I W ~ WWW 












79UU 








79UC 








79U(. 
j7tO 


nil 760 




000022 

WWWW*a «• 


j7t f 
















79(1 9 
j7H 7 








79i;n 

«379U 


nil 7i;fi 


1 1 2717 


000023 

WWW W4m W 




01 1 7f>i| 


012702 

W A A* ( W«« 


012036 

u ft mWwW 


79*; 9 


01 1 770 


0QH737 

W W • f w f 


005362 


f 1 1 
i 1 / 


01 1 77U 


lQ2>t37 






011776 


001337 


005600 


0 7w~ 


012002 


016030 








176mQ 

A f WW~W 




3966 


012006 


17'»7GG 




3957 


012010 


000060 




39S8 


012012 


005215 




3959 








3960 


0120m 


022710 


171 ■'00 


3961 


012020 


00 1001 





001122 
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flflCYll 
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PAGE 21-10 


^TORT 

d 1 nn 1 


OF TESTS 










or ufliTRDY 


.uniT FOR READY 




0 V d 


9QC 

77» 






1 IV V 


RU. (R1 )^ 


.STORE TIME IN GAPTBL 

/ «4 1 Vf\ k III IW • !■ Ural ■ Wk 




DEC 


RO 


, DECREMENT « OF RECORDS READ 




BNE 


3t 






CLRB 


aiGflP 

vw wnr 


/SET GAP K 0 




nov 


«16. ,R0 






nov 


HGRPTBL.Rl 




D3 


nnu 




. GET GAP TICK COUNT 

/ Ub 1 W>*l 1 1 1^ V Wl V ■ 




w On 


PC . GflPOK 

r ^ * unr win 


.CHECK TIME 








; INCREMENT GAP * 




CMPB 


#16. .dtGRP 


.-BRANCH IF ALL GAPS NOT CHECKED 




BNE 


6t 






1 lU V 


lift . RO 


; SETUP TO AVERAGE GAP SIZES 

/ 1 Wl 1 \r ■1Vb*^'>Wb wr*i «# I fcfc w 




1 IW V 


XGflPTBL/ Rl 


;SET PTR TO TABLE 






R2 


; CLEAR 'SUM' REGISTERS 




V k n 


R3 






ADD 


(Rl )>/ R2 


/ADD ALL GAP SIZES TOGETHER 




POC 


R3 






DEC 


RQ 






RNP 
one 


7» 






1 IV w 


11. RO 


.NOU DIVIDE BY 16 




PSR 


R3 


.BY SHIFTING 1 PLACES RIGHT 




ROR 


R2 






Ub V 


RO 

i\ W 






RNE 


0 * 






1 IW V 


R2/ R1 


.MOVE AVERAGED TIMES TO R1 




JSR 


PC, TltlOK 


.CHECK AVERAGED TIMES 




BR 


lOOS 




994 


HLT 






lOOS 


SCOPE 






TF5T 


022-ounnY 


TEST 




,THIS 


TEST flEOSURES NOTHING 




TST022. nOVB 


«22, ilTSTNUtI 





SEQ 0107 



.TEST 023-DATO TIME (200BP1) 

.THIS TEST MEASURES TIME FROM 'FC PEG' 



rST023 



IS 



MOVB 

MOV 

JSR 

BVS 

JSR 
UORD 

. UORD 
UORD 
UORD 

INC 

CMP 
BNE 



i23,aiTSTNUM 
• 3S.R2 
PC. REUIND 
9?5 

R3.TMCMD 
UT6UF 
-800 
-IfeOO 
UFUD 
(R5) 



«-lbOO 
2% 



IPO) 



CHANGES TO •RDY'=1 

,SET RETURN PC FROM TIMER 
.REUIND SLAVE 

.BRANCH IF ERROR ON REUIND 
.URITE 800 UORD RECORD 
.SET WRITE BUFFER ADDRESS 
.UORD COUNT 
.FRAME COUNT 
.URITF. COMMAND 
.SET 'GO" BIT 

,UAIT FOP FRAME (.OUNT TO CHANGE 
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nncYU 30(iot«b) 

START OF TESTS 





Ul ZUZZ 


n7'77 1 1 
U JZr 1 1 


nunnnn 

UHUUUU 






nni n77 
UUl U^£ 








nnn77i 
UUUr fi 




J7bb 








o7bb 


Ul 






t i \ 


ni 9m9 
Ul ^U 


nnu7 77 

UUI f ■if 


nnuunn 


J70f 


ni 9n7<> 
Ul Jb 


1 nc7i 1 




7Q&Q 

j^bo 


Ul^UHU 


1 nniin? 

lUUtUA 




7QCQ 
J7b7 


Ul ^Ut^ 


UUU i b J 




J7r U 


Ul ZUHb 


ni 97nn 

U t^r UU 


nnnnn7 

UUUUU J 


7Q7 1 

J7/ 1 


ni 7nc^ 
Ul ^Ubz 


nnt7nu 
uub^ui 




7Q79 
J7f 


ni 9n(tU 


nn*i7nn 








nni 775 




J7f H 


ni 7nf>n 


nnu777 


005256 


J7r 3 








J7f w 


ni 2nf>ft 


nnu737 


00>4526 

W W • W mW 


f w77 
j7' < 








7Q7H 








7Q7Q 

J7f 7 




1 nuupn 




J70U 


ni 7n7f> 






J7S 1 








J70^ 








070 J 


ni 7ino 


1 12777 


00002*4 

W W W W A« • 






012702 


012166 


79R^ 


0121 12 


00*4737 


005362 




ni 21 16 


102HH2 






ni2120 


052765 


000700 


7987 


012126 


00*4337 


005600 




ni 21 72 


016030 

\J 1 WW JW 






ni 21 7U 


173520 

i 1 ^WA*W 






ni2i3fe 


1672140 

1 W I *• • W 






ni 21UQ 


000060 

WWW WWW 






012H42 


005215 

WWW A* * J 














Qi2m>4 

W I *• 1 I » 


022710 


1672'*0 


j77D 


ni2i50 


00100>4 

WW 1 W W ' 




799^ 

i3 77w 


ni 2152 


03271 1 


0*40000 


7997 


ni 2156 


001022 

WW t Wmm 






ni 2i(iO 


000771 




7999 

ij 777 








unnn 


01 2162 










no«4737 


00*4 14 00 

W W ■ ■ WW 




ni ?i Afe 


10571 1 

1 W w (II 






ni2i7n 


100^402 

1 ww~ w *• 




unn7 


012172 


000163 


00«4M70 












012176 


012700 


000003 




012202 


00620H 

WW * w » 




U007 


W A ^ ^ W » 


006300 






012206 


001375 




H009 


012210 


OOH 737 


005256 


HOlO 


01221H 


102H03 




HOll 


012216 


00H737 


00*4526 


H<i\2 


012222 


00C401 




fOlJ 








tOlH 


01222>» 


lOHHOO 





IS 



5S 



99$ 
lOOS 



BIT 
BNE 
BR 



JSR 
TSTB 

Bni 

J MP 

now 

flSR 
DEC 
BNE 
JSR 
BVS 
JSR 
BR 

HLT 
SCOPE 



,TEST 02H-ORTfl 
001 12H TST02H. MOVB 
MOV 
JSR 
BVS 

000032 BIS 
JSR 
UORD 
UORD 
UORO 
UORD 
INC 



IS 



2S 
3S 



5S 



?9S 



CMP 
BNE 
BIT 
BNE 
BR 



JSR 

TSTB 

BMi 

jnp 

MOV 
flSR 
DEC 
BNE 
JSR 
BVS 
JSR 
BP 

HLT 



E 9 
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SEQ 0108 



lERR. (Rl) .MONITOR ERROR BIT 

It 



PC.TItlON /TURN TIMER ON 

(Rl) .UPIT FOR READY TO SET 

TmER(R3) 'GO TO TIMER & RETURN VIR R2 

t3,R0 'SET TO DIVIDE BY 8 

RH ,BY SHIFTING RIGHT 3 PLACES 

RO 

5S 

PCURITRDY 
99$ 

PCTinOK , CHECK TIME 

100$ 



TIME (556BPI) 
•2H' ilTSTNUM 
• 3$'R2 
PC' REUIND 
99$ 

IBPI566^N0Rnil,TC(R5) 

R3, incno 

UTBUF 

-222H 

-HHH8 

UFUD 

(R5) 

I-HHH8 ' IRO) 
2$ 

«ERP, (Rl) 

99$ 

1$ 



,SET RETURN PC FROM TIMER 
/REUIND SLAVE 

/BRANCH IF ERROR ON REUIND 
,LOAD TAPE CONTROL REGISTER 
,URITE 222H UORD RECORD 



SET 'GO" BIT 
/BRANCH UHEN URITING BEGINS 
/MONITOR ERROR BIT 



PC/TinON 

(Rl) 

H$ 

TmER(R3) 

• 3/RO 
RH 
RO 
5$ 

PC/UAITRDY 
99$ 

PC/TinOK 
100$ 



.TURN TIMER ON 

.BRANCH UHEN READY SETS 

.GO TO TIMER & RETURN VIR R2 

.SET SHIFT COUNT 



.CHECK TIME 



F 9 
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t w~ www 






loot 


SCOPE 


























/ TEST 


025-DnTn 


H018 


012230 


1 12737 


000026 

w www mm W 


001124 


TST025 


nova 




012236 


012702 


012316 






nov 




012242 


004737 


005362 






JSR 


( \ ) 


012246 


102442 








BUS 


HOZl 


012250 


062766 


001300 


000032 




BIS 


•♦022 


012266 


004337 


00660U 






JSR 


4023 


012262 


016030 








UORD 


>402H 


012264 


171600 








UORD 


^♦025 


012266 


163400 








UORD 


4026 


012270 


00C060 








UORD 


'♦027 


012272 


006216 








INC 


H028 














H029 


012274 


022710 


163400 




IS 


cnp 


^♦030 


012300 


001004 








BNE 


^♦031 


012302 


032711 


040000 






BIT 


H032 


012306 


001022 








BNE 


M033 


012310 


000771 








BR 


•♦OSH 














H03S 


012312 








2S 




(1 ) 


012312 


004737 


004400 






JSR 


«t036 


012316 


105711 






3S 


TSTB 


H037 


012320 


100402 








Bni 


4038 


012322 


000163 


004470 






jnp 


M(I39 














HCHO 


012326 


012700 


00000 Z 




-»S 


MOW 


HCm 


012332 


006204 






5S 


RSR 


4042 


012334 


006300 








DEC 


H043 


012336 


001375 








BNE 


14044 


012340 


004737 


006266 






JSR 


4045 


012344 


102403 








BVS 


4046 


012346 


004737 


004526 






JSR 


4047 


012362 


000401 








BR 


4048 














4049 


012364 


104400 






99S 


HLT 


40B0 


012366 


104000 






100% 


SCOPE 


40S1 














40S2 










,TEST 


026-OflTO 


4063 


012360 


112737 


000026 


001124 


TST026 


• novB 


4064 


012366 


106737 


001131 






TSTB 


4066 


012372 


001046 








BNE 


4066 


012374 


012702 


012454 






now 


4067 


012400 


004737 


006362 






JSR 


(1) 


012404 


102437 








BVS 


4068 


012406 


062766 


002300 


00003: 




BIS 


4069 


012414 


004337 


006600 






JSR 


4060 


012420 


016030 








UORD 


4061 


012422 


171600 








UORD 


4062 


012424 


163400 








UORD 


4063 


012426 


000060 








UORD 


»4064 


012430 


006216 








INC 


4065 












CMP 


M066 


012432 


022710 


163400 




IS 




012436 


001004 








BNE 



i026.dtTSTNUn 
• 3t,R2 
PC. REUIND 
99t 

i6PI80O^N0Rt111,TC(R6) 

R3,TncnD 

UTBUF 

-3200 

-6400. 

UFUD 

(R5) 

«-6400 / (RO) 
2S 

«ERR. (Rl) 

995 

IS 



PC.TinON 
(Rl ) 
4S 

TinER(R3) 

S3,P0 
R4 
RO 
6S 

PCUfilTRDV 
99S 

PCTltlOK 
lOOS 



• Q26>atTSTNUt1 
aiNRZFLG 
TST027 
t3S.R2 

PC. REUIND 
99S 

«?E1600tN0Rnil, TC(P6) 

R3,TncnD 

UTBUF 

-3200. 

-6400 

UFUD 

(R6) 

«-6400 . (PG) 
2S 



,SET RETURN PC FROM TIMER 
,REUIND SLRUE 

, BRANCH IF ERROR ON REUIND 
;SET 800 BP! 

.URITE 3200 UORD RECORD 



,SET '60' BIT 

,UfllT FOR URITING TO START 
, MONITOR ERROR BIT 



,TURN TIMER ON 

.BRANCH UHEN READY SETS 

,G0 TO TIMER I RETURN VIA P2 

,SET SHIFT COUNT 



CHECK TIME 



, BRANCH IF DRIVE "NRZ ONLY' 

.SET RETURN PC FROM TIMER 
.REUIND SLAVE 

.BRANCH IF ERROR ON REUIND 

.SET 1600 BP I 

.URiTE 3200 UORD RECORD 



.SET 'GO' BIT 

.BRANCH UHEN URITING STARTS 



DZTUD-D THOZ DRIVE FUNCTION TIMER 



nncYii 30(l0^t.) 27-OCT-77 



9 

13 >t2 



PRGE 24-13 



ZTUOO 


p \ 1 


Z7-0CT-77 


13 17 




START 


OF TESTS 




H0b8 


012440 


032711 


040000 






BIT 


lERR. (Rl ) 


H069 


012444 


001017 








BNE 


99f 


4070 


012446 


000771 








BR 


If 


•4071 
















4072 


012460 








2$ 






( 1 ) 


012460 


004737 


004400 






JSR 


PC, TIMON 


>4073 


012464 


105711 






35 


TSTB 


(Rl ) 


4074 


012466 


100402 








Bni 


4f 


4076 


012460 


000163 


004470 






JMP 


TmER(R3) 


4076 
















4077 


012464 


006204 






4S 


RSR 


R4 


4078 


012466 


006204 








RSR 


R4 


^O"? 


012470 


004737 


00R256 






JSR 


PCUAITRDY 


40S0 


012474 


102403 








BVS 


99% 


40S1 


012476 


004737 


00452b 






JSR 


PC.T'nOK 


41£2 


012502 


000401 








BR 


lOOS 


40S3 
4084 


012504 


104400 






994 


HLT 




4085 


012506 


104000 






IQOS 


SCOPE 




408b 
















4087 










,TEST 


027-ERflSE 




4088 










• THIS 


TST MEASURES TIME FROM 


4089 


012510 


112737 


000027 


001124 


TST027 nOVB 


l27,aiTSTNUn 


4090 


012516 


012702 


012544 






MOU 


ll«,R2 


4091 


012522 


004337 


005600 






JSR 


R3,dlTnCM0 


4092 


012626 


000000 








UORO 


0 


4093 


012630 


000000 








. UORD 


0 


4094 


012632 


000000 








UORO 


0 


4096 


012634 


000024 








UOPD 


ERASE 


4096 


012536 


004737 


004400 






JSR 


PC.TIHON 


4097 


012642 


005215 








INC 


(R6) 


4098 
















4099 


012644 


106711 






IS 


TSTB 


(PI ) 


moo 


012646 


100402 








6MI 


2S 


HlOl 


012660 


000163 


004470 






J MP 


TII1ER(R3> 


4102 












PCUAlTPOr 


410J 


012664 


004737 


006256 




2S 


JSR 


4104 


012660 


102403 








evs 


99* 


4106 


012662 


004737 


004626 






JSR 


PC- TiMOf 


4106 


012666 


000401 








BR 


loot 


4107 
















4108 


012670 


10H400 






99S 


HLT 




4109 


012672 


1 04000 






lOOS 


SCOPE 




4110 
















4111 










TEST- 


030 TAPE 


MARK 


4112 










THIS 


TEST MEASURES TIME FROM 


4113 


012674 


112737 


000030 


001124 


TSTC30 nOVB 


•30,ilTSTNUn 


4114 


012602 


012702 


012644 






MOV 


• lf,P2 


4116 


012606 


004737 


006444 






JSR 


PCURITE 


4116 


012612 


006216 








INC 


(R6) 


4117 


012614 


004737 


006256 






JSR 


PC.UAITRDY 


4118 


012620 


102423 








BVS 


991 


4119 


012622 


004337 


006600 






JSR 


R3.aiTnCMD 


4120 


012626 


OOCOOO 








UORO 


0 


4121 


012630 


000000 








UORO 


0 


4 122 


012632 


000000 








UORO 


0 



SEQ Olio 



,nCNITOR ERROR BIT 



;TURN TIMER ON 

, BRANCH UHEN READY SETS 

,G0 TO TIMER k RETURN VIA R2 

, DIVIDE TIME BY 4 

, CHECK TIME 



■1 TO "ROY'sl 

.SET RETURN PC FROM TIMER 



,TUPN TIMER ON 
,SET 'GO' BIT 

BRANCH UHEN READY SETS 

.GO TO TIMER I RETURN VIA P2 



•G0' = 1 TO 'PD' • = ! 



.SET RETURN PC FROM TIMEF 
UP'TE A RECORD 
SET 'GO- BIT 



DZTUO-D TflOZ ORIUE FUNCTION TIMER 
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m23 


012fa3H 


00002b 




012b3b 


00^737 




0126H2 


00&21& 








mz? 




ios7n 


tizs 


0l2bHb 


100>402 


tiz? 


012bS0 


0001 b3 


•♦130 








012bBH 


OOH 7 37 


m32 


Ol2bb0 


102H03 


•♦133 


012bb2 


OOH 737 




012bbb 


OOOHOl 










0l2b70 


lOHHOO 




Oi:b72 




■ 1 


012b?2 


00H737 


I • 


Ol-b?b 


IGZ"""* 






1 OH 000 









00HM70 
00525b 
00H52b 

0055b: 



nfiCYll 30(10>4b) 
START OF TESTS 



H 

27-0CT-77 



9 

13 U2 
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SEQ 0111 



II 



2S 



99S 
lOOS 



UORO 


UFtlK 




JSR 


PCTinON 


,TURN TIMER ON 




V R9 ' 




TSTB 


(Rl ) 


, BRANCH UHEN REPOY SETS 


BMI 


2t 




JtIP 


TmER(R3) 


,G0 TO TIMER & RETURN VIA R2 


JSR 


PCUfllTRDY 




D vd 


991 




JSR 


PC- TinOK 




BP 


lOOf 




HLT 






JSR 


PC. REUIND 


.REUIND SLPUE 


6VS 


99% 


.BRANCH IF ERROR ON REMIND 


SCOPE 
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(IfiCYll 30(1046) 27-OCT 
STPRT OF TESTS 



I 

•77 



9 
13 



•42 PPGE 2H-15 



SEQ 0112 





012702 


012700 


000012 




F INiSH 




012706 


OOOOOM 


001376 




14 




012712 


005300 










0127m 


001 37M 










012716 


032777 


QOOlOO 


166056 




41>46 


01272«4 


oomio 








i4m7 


012726 


113700 


001006 








012732 


113701 


001007 






m»49 


012736 


113702 


001010 






•+150 


0127H2 


000137 


007274 






•♦151 


0127M6 


105237 


001007 




Zi 


'4152 


012752 


005237 


001010 






^♦153 


012756 


122737 


000010 


001007 




'♦15'* 


01276M 


oomo2 








^155 


012766 


000137 


007030 






uiSb 


012772 


105037 


001007 




3S 


■»15" 


012776 


105237 


001006 






'♦IBS 


013002 


122737 


000010 


001 006 




>4159 


013010 


001*402 








mbo 


013012 


000137 


007C30 






■♦Ifel 












14162 


013016 


105737 


00112"' 




END 


m63 


013022 


00100'+ 








m6i4 


01302'4 


00000>4 


01>4l''3 






I416S 


013030 


000137 


01 30b0 






m66 


01303H 


023737 


0000*42 


0003»4b 


IS 


>4167 


0130H2 


oomol 








m68 


0130HH 


oocooo 








H169 


0130H6 


GG«»737 


001772 




2S 


m70 


013052 


000005 








m7i 


01305M 


000137 


005750 






14172 


013060 


005237 


001000 




ENDPfiS 


14173 


01306M 


013700 


OO00>42 






m7»4 


013070 


oomoB 








m75 


013072 


000005 






ENUHD 


m76 


01307H 


00*4710 






m77 


013076 


0002140 








m"S 


013100 


0002H0 








■♦179 


013102 


G002»40 






RETUPN 


^l3^ 


riJirm 


^001 37 


005750 





nov «io 

TYPEXRLF 
DEC 
BNE 
BIT 
BEQ 

novB 
nov/B 
novB 
jnp 

INCB 
INC 

cnPB 

BEQ 

jnp 

CLRB 
INCB 
CMPB 
BEQ 
JttP 



RO 



TSTB 
BNE 

TYPE.E 

jnP 

CMP 

BEQ 

HALT 

JSR 

RESET 

JHP 

INC 

flOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JflP 



RO 
It 

ISU06. dSUR 
2t 

aiDRVNUn,RO 

aiSLVNun,Ri 

aiSLVPTR,R2 
aiTYPHDR 

aiSLVNun 

atSLVPTR 
«8 .dISLVNUn 
3f 

dlBEGIN 

aiSLVNun 

dtDRVHUn 
«8 .dIDRUNUn 
END 

dlBEGlN 



dIUNTFNO 
li 
UNIT 
itENDPflS 
dli42.dtH6 

zs 

PC.CKSUR 

dtlNiT 
dtPflSS 

RETURN 

PC. <R0« 



dtiNiT 



,SET LINE FEED COUNT 



.SET NEXT SLAVE « 

.AND ITS POINTER 

.BRANCH IF LAST SLAVE (7) 

, BEGIN TEST ON NEXT SLAVE 
;SET SLAVE iO 
,AND INCREriENT DRIVE « 
.AND CHECK IF LAST DRIVE 



.BRANCH IF A UNIT UAS FOUND 



.ACTll AUTO nODE"» 
.YES 

.CHECK FOR CNTL G 

-RESTART 

.41 TO PASS CNT 

.BRANCH IF NO rONlTOP 

.E^IT TO MONITOR 



J 
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H 1 1 ^ 








a 1 C 7 








Li 1 CU 


n 1 71 in 

U 1 J 1 1 U 


n 1 7 7 77 

Ui Ci 


ni Tilt 
u 1 ^ 1 lb 


4 1 02 








4 1 Ob 








4 1 5f 








Li 1 OO 
4 1 OO 








Li 1 OQ 


ni 74 1 c 
Ul Ji lb 


1 1 77 77 


nnnmi 


u 1 on 


m 71 911 
Ul Jl ^4 


ni 77n7 


ni 77n7 


4 171 


ni 71 7n 

U1 Jl MJ 


nnii777 

UU4 f Jr 


nnc7c>7 

UU9 JbA 


i * 

' t 1 


ni 71 7ii 

U 1 J 1 J4 


1 n7lib 1 
1 0^44 1 




Li 1 

4 1 


m 71 7<, 
ui J 1 Jb 


nC77<.C 
US^r b3 


nni 7nn 

uu 1 JUU 


4 1 T J 


ni 71 uu 
u 1 J 1 44 


nR77(>C 
U9^r D3 


UUUU 1 u 


4 1 74 


mil t7 


nnu 777 

UU4 Jor 


nni^dnn 

UU3DUU 


4 1 72 


ni 71 c:c. 


01 f>07n 




4 1 70 


ni 71 ttO 

U 1 J 1 DU 


1 77777 

1 r 1 1 1 ' 




4 I7r 


ni 71 1.7 

U U 1 bA 


nf.7bbn 

Ub J44U 




4 1 70 


n 1 7 1 CtU 

U 1 J 1 D4 


nnon7n 




U 1 QQ 
4 177 


ni 71 c>c< 

U 1 w IDb 


nn(^7i ^ 

UU3A 1 3 




4^UU 








4 1 


01 7« 7n 


P7771 0 


nniuuo 


4ZUX 


ni 71 7U 
U 1 J t < 4 


1 ni 77K 












4 


ni 71 7f> 


004777 


004400 

-J u » ~ u u 




ni 7202 


027710 


01 31fi2 


4 AUD 


01 720f> 


107402 






01 3210 

\J 1 1 U 


0001 f>7 


004470 


4/Uo 








H^U7 


ni 771 u 

U 1 1 4 


ni ?7nn 


000005 


4^ I U 


ni 777n 






U71 1 


01 {222 


U w -J «J wVJ 




4^ 1 A 


01 722U 


001 3''5 




4£ 1 iJ 


01 722fe 


004777 

UU « f ^ * 


005220 


4A 14 


01 ■'272 


004737 

UU~ 1 I 


004526 


4^ 13 


ni 777t, 


000401 

W W W • w I 




U71 f^- 

4^ 1 D 








U717 


01 77un 


104400 




U 71 
*v ^ 1 o 


01 72i»2 

U 1 ^^^l> 


1 n4QQQ 

1 w~UUU 




4^17 








U 7 9n 

4^^U 








4 Ai. 1 








U777 
















U77U 
4 


ni 77UU 

U 1 JX44 


1 1 7777 
1 I iff 


000072 

UUUU wA* 


U77K 


01 77li2 

U 1 J^3X> 


01 7702 


013400 

U i ^ • WW 




01 72^f> 


004777 


005362 

W W -J W U Aa 


fit 


01 72fe2 


lQ24t>^ 




U777 

4 AAi 


01 726<4 

U 1 iJ*04 




001300 

WW I WWW 


4 A AO 


01 7272 




0000 10 

W www m W 


U77^ 


ni 7700 


004 737 


005600 


14 270 


01 770U 


016030 






013306 


\77777 




4232 


013310 


076400 






013312 


00C070 




4 23M 


013314 


006215 




4235 









001004 



nncYU 30(i04b) 

START OF TESTS 
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SEQ 0113 



001124 TST031 



000032 
000010 



,SKEM TAPE TiniNG TESTS 

.THE FOLLOUING TESTS REQUIRE A SPECIALLY WRITTEN 800 BP I SKEW TAPE 
SKEWTST nOV ITSTOSl-aiSCPPDR .SET SCOPE POINTER 

.TEST 031- SKEW TAPE SPEED TEST-FORWARD 

.THIS TEST READS 32" OF TAPE (26400.-800 = 26600 FRAMES). THEN 
.DIVIDES TlflE BY 32. TO GET TIHE TO READ 1" (800 FRAflES) OF TAPE 



IDS 



IS 



3S 
4S 



995 

loot 



novB 
nov 

JSR 

BVS 

BIS 

BIS 

JSR 
WORD 
WORD 
WORD 
WORD 

INC 

cr>p 

BHI 

JSR 
CMP 
BLO 
JMP 

nov 

ASR 
DEC 
BNE 
JSR 
JSR 
BR 

HLT 
SCOPE 



•3t.aiTSTNUn 
«2S,R2 
PC/. REWIND 
99S 

•BPI800^N0Rnil.TC(R6) 
i6Al.CS2(R6) 

R3.aiTncno 

RDBUF 
-1 

26400 
RDF WD 
(R6) 



8800 
If 



(RO) 



PC TinON 
dllOt. (R0> 
3S 

TtnER(R3) 

16. RO 
P4 
RO 
4t 

PC.RHINIT 

PC.TinOK 

lOOS 



.SET RETURN PC FROn TIMER 
/REWIND SLAVE 

.BRANCH IF ERROR ON REWIND 
.SET 800 BP I 

.INHIBIT BUS ADDRESS INCREMENT 
,(>tAD 32" OF TAPE-FORWARD 



.FRAME COUNT 
;SET 'GO' BIT 

.WAIT FOR FIRST 800 FRAMES 
.TO BE READ 

. TURN TIMER ON 

.WAIT FOR READING TO FINISH 

.GO TO TIMER & RETURN VIP R2 

.DIVIDE TIME BY 32 



INIT OR!"E 
.CHECK TIME 



.TEST 032-SKEW TAPE SPEED TEST-REVERSE 
.THIS TEST READS FORWARD 40" (32000 FRAMES) OF TAPE- 
.32" (26400 -800. = 26600 FRAMES) OF TAPE THE TIME 
.32 TO GET TIME TO READ 1" (800 FRAMES) OF TAPE 



THEN READS REVERSE 
IS THEN DIVIDED BY 



001124 TST032. 



000032 
000010 



lOS 



nous «32.dlTSTNUt1 

MOV 131. R2 

JSR PC. REWIND 

BVS 99S 

BIS IBPISOO^NORMU. rC(P6) 

BIS •BAI.CS2(R6) 

JSR R3/dtTnCnD 

WORD ROBUF 

WORD -1 

WORD 32000 

WORD RDFWD 

INC (R5) 



SET RETURN PC FROM TIMER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 



READ FORWARD 32000 FRAMES 



.WORD COUNT 
.FRAME COUNT 
,READ FOPUPRD 
-SET GO' BIT 
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nfiCYU 30(1 OHt>) 
STORT OF TESTS 



"4236 


013316 


023710 


"4237 


013322 


1Q137S 


"4238 






'♦239 


013324 


004737 


'♦2'40 


013330 


004737 


'42m 


013334 


052765 


'42H2 


0133*42 


062766 


'42'43 


013350 


004337 


2'4'4 


013354 


016030 


"4 2*45 


013356 


4 ^^^^^ 

\77777 


4 2'46 


013360 


063440 


•4 ^-t? 


01 336Z 


nnnn7£. 
00UU7b 


'4 2'48 


0t336H 


OOsZiS 


'4 2'49 






4 250 


01^366 


no o^ 4 n 

UZZ71U 


'4251 


A 4 ^ O 

013372 


101375 


4 252 






4 253 


01 3374 


nnii 7 77 
UU4 r 3r 


4254 


□1 3400 


U^ir lU 


It Of P 

4255 


n 4 nil 

01 3404 


4 n 7ii no 
1 Ui4UZ 


1 1 OC ^. 

4256 


n 4 7li rt£. 

01 34 Co 


CUUl b3 


4257 






4258 


01341^ 


01Z7U0 


4259 


01 JHlb 


UUb^UH 




m 7ii ^^n 


nnc 7nn 
UUs JUU 


li O^ 4 


n 1 7ii 
Ul JHZZ 


nni 77r 

UU 1 <ifl3 


HZbZ 


n 1 7ii Oil 


nnu7 77 


4Zoi 


01 iHiU 


nnu 7 77 
UUH f if 


4264 


n 4 7ii 7ii 


UUU4U1 


li Ot C 

4265 






4Zbb 




1 niiunn 

1 UHHUU 


4Z67 


U 1 J44u 




( 1 ) 


ni 7iiiin 
Ul JHHU 


UUt f i' 


( I ) 


ni 7uuii 

U 1 JHHH 


1 n777U 


4Z6S 


n 1 7ii ll ^ 
Ul jHHb 


1 nunnn 

1 UHUUU 


4Zb7 






4270 


013450 


000137 


4271 












4:": 







013310 



005220 
004764 

001300 000032 
000010 000010 
006600 



IS- 



001440 

004400 
013360 

004470 

000005 



005220 
00452b 



005362 



012702 



lis 



2S 



3S 



4S 
5S 



99S 
lOOS 



cnp 

BH 

JSR 

JSR 

BIS 

BIS 

JSR 
UORD 
UORD 
UORD 
UORD 

INC 

CMP 
BHI 

JSR 

cnp 

BLO 
JMP 

nov 
nsR 

DEC 
BNE 
JSR 
JSR 
BR 

HLT 

JSR 
BUS 
SCOPE 

JMP 



K 9 
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SEQ 0114 



dllOS, (RO) 
IS 



DC DU 1 IJ i T 




Of nri Qv 


UQlT TAP TQPr MOTION TO STO^^ 


IBPI8004-N0RnU.TC(R6) 


;SET 800 BP! 


• BRLCS2(R6) 


.INHIBIT BUS ADDRESS INCREMENT 


Kit mm intnu 


ppan BPuPB^r 79" af tqpf 


ROBUF 


,RERD BUFFER 


-I 


,U0RD COUNT 




.FRflMF COUNT 




. READ REVERSE 


(PR) 


.SET 'GO' BIT 


• 800. . (RO) 


;UfllT FOR FIRST 800 FRfltlES 




; TO BE READ 


PC, TinON 


.TURN TIMER ON 


■llllS, (RO) 


.UflIT FOR PLL FRAMES TO BE READ 


4S 




T 1 tlER (R3) 


.GO TO TIMER I RETURN VIP R2 


II5.ro 


.DIVIDE TIME BY 32 


R4 




RO 




6S 




PC'RHINIT 




PCTinOK 




lOOS 




PC, PEUIND 


REUIND CLOVE 


99S 


BRPNCH IF ERROR ON REUIND 



dtF INISH 
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flRCYll 30(10Hb) 27-0CT-77 
PROGRPn nESSRGES 



9 

13 



H2 PRGE 2H-18 



SEQ 0116 



4275 
4276 
42'7 



4278 



•42^9 



4280 
H281 



4282 



U 7C7 



4 284 



4285 
4286 
4287 



G1346'» 

G13462 

013470 

013476 

013504 

013612 

013520 

013522 

013530 

013536 

013644 

013662 

013560 

013566 

013667 

013674 

013602 

013610 

013616 

013624 

013631 

013636 

013644 

013660 

013656 

013664 

013672 

013700 

013706 

013710 

013716 

013724 

013732 

013740 

013746 

013751 

013766 

013764 

013772 

014000 

014002 

014010 

014016 



014022 
014030 
014036 
014041 
014046 
014054 
014062 
014070 
014076 



006016 
042040 
043040 
047511 
042515 
052132 
000051 
006015 
043040 
040440 
051623 
047603 
046114 

000 

124 
046624 
044522 
051447 
042502 
042524 

106 
030116 
063111 
026460 
020105 
020106 
047524 
042524 
000040 
050123 
042624 
047117 
054450 
020117 
024460 

116 
046116 
042531 
036440 
000051 
005016 
043117 
006605 



006015 
042520 
032040 
116 
062116 
061106 
042101 
020123 
043111 



062524 
044522 
047126 
020116 
020122 
042125 

064624 
Obi 111 
042104 
047440 
062116 
051105 

050131 
031060 
042526 
062040 
052040 
020104 
051117 
020062 
020105 
062040 
046123 
023443 
041040 
062123 

042505 
052123 
054514 
051606 
020076 
000 
065122 
037631 
027623 
030440 

047105 
062040 
000012 



061124 
020104 
000 
020117 
047522 
040440 
061104 
050123 
042511 



033061 
042626 
052103 
044624 
042050 
042055 

042520 
062123 
042622 
020106 
047622 
020040 

020105 
0420^0 
021440 
020117 
061605 
000 
052040 
061104 

060131 
053101 
020123 
020105 
042105 

020104 
020123 
020077 
047067 
027461 

047440 
024040 
047616 
030067 

020104 
050101 



SBTTL PROGRPtl HESSPGES 
,OPERRTOR INSTRUCTIONS 

n.NRfl .flSClZ <CR><LF>'TU16 DRIVE FUNCTION TIMER (DZTUD-0) 



REG flSCIZ <CR><LF>'TYPE FIRST ROORESS OF CONTROLLER 



I DRVS flSCIZ '/.TYPE Tt102 ORIVE »'S TO BE TESTED X 



I SLVS fiSCI I 'FOR Tn02 DRIVE * 



I DRV RSCi: y.Q- TYPE SLRVE I'S TO BE TESTED '/. 



I.SKEU RSCI2 'SPEED TESTS ONiy* (YES/NO = 1/0)' 



I NR2 RSCIZ 'NRZ ONLV (YES/NO s 1/0)' 



n EOT flSCIZ <CR><LF>'EN0 OF TflPE*<CRXLF> 



, ERROR nESSRGES 
050101 E. TRP4. RSCIZ <CR><LF>'TRRPPED TO 4' 
047524 

047503 E NCON .RSCIZ 'NO CONTROLLER RT RDDRESS SPEC IF lED" <CR><LF> 

046114 

020124 

061506 

OH 1505 

006504 



DZTUD-D TtIOZ 
DZTUDD Pit 



ORIUE FUNCTION T mER 
27-0CT-77 13 \7 



riRCYll JOdOUb) 27-OCT 
PROGRPM HESSflGES 



n 

•77 



9 

13 



U2 PRGE 2<4-19 



SEQ 0116 





n 4 u 1 nil 
UIH lUH 


nnnm 7 










HZ87 


m ll 4 nc 


nbCC7li 
UHbbZH 


n7i ncn 


nb7nbn 


r 






m ll 1 1 ll 


niillC77 


nii7C7C 


nnnnbn 










nc 1 1 nil 
U9 1 lUH 


nc7i 1 1 


n7ni nc 

U^U 1 U9 


r 

L 






uiH 1 JU 


n7nnc.n 


nbCI 77 


nc7i ni 

U90 1 U 1 


C 

c 






mm 7C. 
UlH 1 Jo 


n7m nc 

U^Ul U9 












ni u 1 un 
UiH ilU 


n7nncn 


nb7Ci (> 

r 9 1 0 


n7ni 7b 


c 

b 


NQUQ 
fin vn 




n 1 u 4 iic 


nc7i ni 


nbbcni 


nbnci b 

U~U9 It 








UlHibH 


nu c 1 n7 


n9ni nc 
UAUiUb 


nb7cn(> 

U1 f 9UD 










n7ni 79 


U1 A9 Al 


U9a 1 A<> 








n 4 li 4 7n 


UUbU 19 


nnn 
uuu 








>■ "JOT 


n4 ll 4 77 


1 m 

lUI 


nb(.i 1 b 


nci bbn 

U3 1 ItU 


c 


UNI T 




ni ii9nn 


nbfcinc 

UtC IU9 


nb 1 cnc 

U*l 1 9U9 


nb2(t2b 








U 1 t^uo 


n7ni nb 


nb(iC7b 


UO 1 UwU 








u iHaim 


nt7nc7 

U9^U9r 


n7nc7C 


UfcUUDO 










nb71 7K 
r 1 ^9 


nc;2i 1 1 

111 


020121 

U*U 1 A«# 








n 1 u 7 7n 

U 1 1 ^ 


nb7(>7b 


Uwfc 1 fcO 


0112106 

W~ w 1 U9 








niU77Ck 


UU9U 1 9 










li9Qll 


niii9iii 




U~ O 1 1 f 


0201 2l| 

U*U » 


p 


SFT 




m ii7uc> 


nci 1 nc 

U9 1 1 U9 


U^ r 


020122 

U&U 1 








ni ii7cii 


nb7ncn 


Uw^ 1 U 1 


02it601 

U^~ wU k 








ni U7(>9 




nnD 










ni u9c>c 


1 7b 


Uw 1 wUw 


0201 

U**U I ^ ■ 


p 


hOR 




ni U777 


n7nnb t 


□on 

uuu 












QbQ 


Qi4 25QI4 

U~ AaWU^ 


Qkt 1(526 


E 


HDRl 






^3 WW 


U~ ~ u 


061122 








ni b 71 n 


n^i 1 17 










U7Q7 


ni b 11 b 


Uw 1 31J*J 


OOI4H61 


0m627 








ni U 777 


nb 1 ni 1 

lull 


wU 1 


0*41506 








ni b 77n 


nb 1 b 1 1 

I "f I 1 


nil 123 


Ob 201 1 

U~ «bU • • 








ni b 77(> 


nnbC77 


061106 

U w 1 t Uw 


062011 








ni b 7bb 


nnftcni 

UUOwwO 


uuuu t «• 










nib7Kn 


nb7uun 

r 


062126 


0*4 7*4*40 


E 


HDR2- 




R 1 ll 7&<k 


n9nin(> 




0*43616 








ni b 7(>b 




061106 


0*47622 








ni b 777 


nnfi^22 


000012 

UUUU A 










nib t7f> 




QbbC7b 


0*42615 


E 


Tinov 




ni bbnb 




0631 17 


061106 








ni bb 1 7 




063617 


0*42106 








ni bb7n 


UU9U 1 3 


000 

uuu 






TItlCX 




ni bu7T 


w 1 9 


062012 


0*46611 


E 




nibuTn 

UlHt JU 






0*4*4620 








ni bb 7(> 




02010*4 

U«iU 1 


0*40527 










062111 


o»»7in 


020107 








omMS2 


0M7606 


020122 


0H2122 








01>t>t60 


006531 


000012 








H301 


0l^^6H 


o^3^^0 


060101 


02m*40 


E 


GAP- 




omM72 


OOOOHO 











•4302 
4 303 

4 3C»4 



E NflVfl fiSCIZ '0 NOT RWfllLRBLE FOR TEST'<CR><LF> 



E UNIT flSClZ "fiLL SELECTED Tn02/TUlb UNITS TESTFD' <CR><LF> 



E SFT .flSCIZ 'SOFT ERROR (DflTfl) ' <CR><LF> 



OSC I Z • C Sr <HT > • UC • <HT> • Bfl ' <HT> • FC • <HT> • CS2' <HT> • OS • <HT> • ER ' <HT> • TC • <CR > <LF > 



E HDR2 RSCIZ ' OUT OF RflHGE ERROR ' <CR><LF> 



flSCIZ <CR><LF>*Tlf1ER OWERFLOUEO" <CR><LF> 



flSClZ <CR><LF>'TI«E EXPIRED MfllTING FOP PDYXCRXLF) 



0mM7M 
01*4502 

om5io 

0m516 

0l^52^ 
Om532 



026052 
025052 
025052 
025052 
026062 
026052 



025052 025052 L^HDRi'^^^flsc iz 'm««««««««»«*«««««««««*«««»n*««t««««««t«««««««««»«m«mmm« 

026052 026052 

025062 025052 

025052 025052 

025062 025062 

026062 026052 



DZTUO-0 Tn02 DRIVE FUNCTION TlflER 
DZTUDD Pll 27-0CT-77 13: 17 



N 9 

nflCYll 30(lO»»t>) 27-0CT-77 13 H2 
PROGRnn MESSflGES 



PPGE 214-20 



SEQ 0117 





01HB*tO 


026062 


025062 


025052 










omstb 


026062 


025062 


025062 












026062 


026062 


026062 












026062 


026062 


025062 










0m570 


02606^ 


026052 


026062 










0mB76 


026062 


025062 


025052 










ombot 


006016 


000 










H30S 


Omb07 


062 


0520*40 


030116 


L. 


HDR2 






ombiH 


020062 


05110*4 


053111 










Ql>tb22 


020106 


052506 


0H1516 










01 14630 


0H>t62*t 


0*47117 


0620*(0 










0m636 


0H661 1 


061606 


020066 










0l^6^^ 


061 lOH 


0631 1 1 


020106 










01>4662 


0200*43 












H3Q6 


OlHbSH 


020060 


0H6123 


063101 


L. 


DRV. 


flSCI 1 




01*4662 


020106 


0200H3 










44 307 


01*4666 


020060 


OHO 




L. 


SLV: 


. flSC 1 1 


H308 


01>4671 


071 


OHIHHO 


0H0610 


L. 


CHRN: 


. flSCI z 




01>4676 


027116 


061HH0 


061106 










0m70H 


021*4*40 


OOOOHO 










H309 


om7io 


C06HH0 


026012 


006016 


L 


HDR3 


flSCI t 


H310 


01*4716 


020062 


052506 


0H1516 






RSCIZ 




Om72'4 


0*4*462*4 


0H7117 


OOHHll 










Om732 


0HH52H 


0H2515 


051 H60 










0m7H0 


OH 2620 


0HH503 


0HH506 










0m7H6 


0H0603 


0HH62H 


0H7117 










0m75H 


00*4H61 


0HH62H 


OH 251 5 










0m762 


0H0H60 


062103 


0H0525 










0m770 


02H6m 


006016 


000 
























H312 


01H775 


122 


0H7101 


OH 2507 


L. 


RNG 


. flSCIZ 




015002 


036075 


000 










H313 


016006 


101 


052103 


0H0626 


L 


«CT 


. flSCtZ 




015012 


0366m 


000 











H31H 

H315 



HDR2 ASCII '» Tn02 DRIVE FUNCTION TlflES- DRIVE « 



'0 SLAVE I 

•0 • 



•<CR><LF/'«'<CR><LF> 



;TEST DESCRIPTOR HERDERS 



H316 


015015 


062 


063HH0 


0HH622 


A TOOl 




015022 


0H262H 


0H30H0 


OH 7622 








016030 


020115 


OH 7502 


00H62H 








015036 


000 










u3ir 


015037 


052 


053HH0 


0HH522 


R. 


T002. 




0150HH 


0H262H 


051HH0 


0H052H 








015052 


062122 


OOHHll 


000 






H318 


015067 


062 


063HH0 


0HH622 


R. 


T003: 




01506H 


0H262H 


051HH0 


062610 








015072 


0H212H 


053517 


00H516 








015100 


000 










H319 


015101 


052 


053HH0 


0HH522 


fl. 


TOOH 




015106 


0H252H 


051HH0 


052105 








01611H 


0H612H 


0H2105 


053517 








015122 


00H616 


000 








H320 


01512S 


062 


0510H0 


0H0506 


R 


T005 




015132 


0201 OH 


051106 


0H6617 








0151H0 


OH 1 OHO 


062117 


OOHHll 








0151H6 


000 










H321 


0161H7 


052 


0510H0 


OH 0505 


R 


T006. 



DZTUD-D Tn02 
DZTUOO PI I 



DRIVE FUNCTION TlflER 
27-0CT-77 13: 17 



B 10 

tlfiCYll 30(lG^b) 27-0CT-77 13 H2 
PROGRPM riESSflGES 



PAGE 2H-21 



SEQ 0118 



^322 
^323 

>«326 
4 326 
•♦327 

H328 

H329 
4330 
4331 
H332 
H333 
433H 
H336 



01616H 
OlBlbZ 
016166 
01517H 
016202 
016210 
016216 
01622H 
016232 
016233 
0162H0 
0162H6 
01626H 
016266 
016262 
016270 
016276 
016302 
016310 
016316 
01632H 
016331 
016336 
0153HH 
016362 
016360 
016362 
016370 
016376 
016H0H 
016m2 
016m3 
016H20 
016H26 
016H3H 
0l6Hm 
016>«H6 
016H6H 
015462 
015H70 
015H76 
01660H 
016612 
016620 
016626 
01663H 
0166H2 
0166H3 
016660 
016666 
01666H 
016667 
01667H 
016602 
016610 
016613 



0201 OH 
00H62H 
020062 
OBIHHO 
063617 
020062 
06mH0 
0H2106 
000 
062 
0201 OH 
062123 
000 
062 
0201 OH 
0HH123 
0H7127 
020062 
061 OHO 
062106 
063617 
062 
0201 16 
0H2116 
06H601 
00001 1 
020062 
OHOHHO 
0201 OH 
020131 
000 
062 
061HH0 
062123 
0H6101 
062 
061HH0 
052123 
0H0610 
020062 
0HH623 
0E2116 
OH 7603 
020062 
OH 7603 
0H062H 
000 
062 
020101 
031066 
00H61 1 
062 
020101 
032H66 
00H611 
062 



062123 
000011 
OH 2622 
062610 
00H616 
0H2622 
062106 
063617 

051 OHO 
0H2622 
061101 

061 OHO 
0H2622 
062125 
000011 
OH 2622 
063105 
0H612H 
00H616 
0620H0 
061101 
0H20H0 
0H30H0 

06262H 
0H7622 
0H260H 
026622 

0H3HH0 
066111 
060117 
00H606 
0H3HH0 
066111 
061101 
0H311H 
0H0607 
0H2632 
061106 
0H2122 
OH 0607 
061616 
0H1616 

0H20H0 
0HH62H 
030060 

000 
0H20H0 
0HH62H 
033066 

000 
0H20H0 



061101 

0H2101 
0H212H 
000011 
0H2101 
0H612H 
00H616 

OH 0605 
020126 
00H62H 

0H0606 
020126 
0H750H 

0H2101 
05mH0 
0H2105 
000 
061126 
062617 
0H6105 
051055 

0H7122 
0H7125 
0H061H 
00H606 

060101 
026606 
OHHOHO 
000 
060101 
026606 
0201 2H 
000011 
020120 
0HHH66 
OH 2622 
000011 
020120 
061611 
00H631 

062101 
0H2616 
060102 

062101 
OH 261 6 
060102 



a T007 flSCIZ '« RERD SHUTDOUN'<HT><HT> 



P. TOlO .flSCIZ '« READ SETTLEDOUN'<HT> 



fl TOll flSCIZ 't RERD REV START '<HT> 



A T012 ASCtZ 't READ REV SHUTDOUN' <HT> 



A TOli. ASCIZ '« READ REV SETTLEDOWN' <HT> 



A TOIH .ASCIZ •« TURN AROUND DELAY F-R'<HT> 



A T016 ASCIZ •« TURN AROUND DELAY P-F'<HT> 



A. T016 ASCIZ '« GAP SIZE-STOP HALF' <HT^ 



A. T017- .ASCIZ '* GAP SIZE-START HALF*<HT> 



A. T020. .ASCIZ '« GAP SIZE- INTERRECOPD-<HT> 



A. T021 .ASCIZ •« GAP CONSISTANCY'<HT> 



A T023. .ASCIZ ' « DATA TinE-200BPI ' <HT> 



A T02H ASCIZ * « DATA TIME-556BP I ' <HT> 



052101 A. T026: ASdZ ' « DATA T IME-8008P I * <HT> 



C 10 

DZTUD-D 1102 DRIVE PUNCTION TIHER MflCYll 30(10^6) 27-0CT-77 13 42 PPCE 2>4-22 

DZTUDD Pn 27-0CT-77 13- 17 PROGRflM ttESSflGES 





015620 


020101 


0»4»452»4 


0*42515 












015626 


03H055 


030060 


050102 












01563H 


00H511 


000 














015637 


052 


0H20HQ 


052101 




T026 


flSC IZ 


'* DflTfl TiriE-1600BPI '<HT> 




0156Hi» 


020101 


0HH62H 


OH 251 5 












015662 


030H55 


030066 


OH 1060 












015660 


0HH620 


00001 1 












1*337 


01566H 


020052 


051105 


051501 


fl. 


T027 


PSCIZ 


* ERASE GRP TIME <HT/ 




015672 


020105 


OH 0507 


020120 












015700 


0HH52H 


0>42515 


00001 1 










•4338 


015706 


020052 


051127 


052111 


fl 


T030 


flSC 1 z 


t WRITE FILE MARK <HT> 




0157m 


020105 


0*4*4506 


0H251H 












015722 


0'46H'40 


051 101 


00H513 












015730 


000 














^♦339 


015731 


062 


A^ A All A 

0620*40 


050101 


H 


T031 


flSCIZ 


• THrt SPEED-rWD <HT> 




015736 


020105 


050123 


Ala MP AP 

OH 2505 












0157M4 


n A/ P All 

02650*4 


053506 


AAli P All 

00H50H 












016752 


000 














•♦3'*0 


015753 


052 


0520*40 


050101 




T032 


Af*^ i *9 

flSClZ 


* THPE SPEED-REV <HT> 




015760 


020105 


050123 


All AC 

OH 2505 












015766 


02650*4 


All 

0*42522 


A Al< ^ 

00H526 












01577»» 


000 














•♦Si^l 


















'♦3H2 


015775 


□ 15 


057012 


□□□107 


1 

L 


LNl u 


ocr t 7 
. HsL 1 £. 


vLK; vLr ? u 


43'43 


Q1600Z 


one 4 C 


05J5Z3 


UJDSZZ 


L. 


Cl ID 


OCi* 1 7 
Hd(. 1 ^ 


/rc\/i rs 'CUD— ' 




016010 


000 














'43H'4 


01601 1 


fill n 

□•40 


fill "7011 n 


nc 7c nc 


L 


kiC 1 1 

NtM 


Qcr 1 7 
HbL 1 ^ 






016016 


UZ0075 














'♦3'46 


016021 


□ IB 


□ 37*412 


nnc n i c 
□□501 B 


1 

L 


Al If CT 








0I60Z6 


UUU 














H346 




016030 










EVEN 




'♦3H7 




016030 










RDBUFs 








016030 










UITBUF = 




H3H9 


016030 


000200 










BLKU 


128 


U36G 




000001 










END 





DZTUO-D Tn02 DRIVE FUNCTION TIHER HRCYll 30(10M6) 27 

02TU0D Pll 27-0CT-77 13 17 SYMBOL TABLE 



H 


UiU7UM 


CNTRLO= 


000017 


E DRV 


hCCL = 


1 OOuuO 


CNTRLUs 


00002b 


E. GBP 


hnuthb 


nn 4 ii 4 ii 

uQimH 


CNVOlC 


U0Z7JZ 


p unn 

t HDR 


nc . 


nnnn i c 


tnUOl 1 


UOZcZH 


r LiriD 4 


ncc 1 r* 
Mbr Lu 




LNVTHO 


UOiZbZ 


r Lir\D ^ 


nT ft 

NTH s 


a ftftftftft 

1 OuOUO 


CNVTD 


nn'97LAii 
OOZrHH 


c NHVH 


OT 1 MC 

HT 1 nt 


□ulum 




OOZbJb 


C. NLON 


HI 1 nTB 


Aft 4 n 4 £. 


COUNT 


nm 7£.£. 
UO 1 7cb 


t NUkU 


n Tftft4 
R TOO! 


ft4 Cft4 C 


CR = 


0000 1 b 


C klCI If 

E. N5LV 


R TOOZ 


ft4 cn77 


LRLF 


nn 4 77t. 
OOl Jrb 


C CC T 

L or 1 


Q Tnn7 


ni cnc7 


r C 1 TM - 

La 11 n - 


nnnnnn 


C T 1 MC 

t. M nt 


H 1 UUH 


ni CI ni 


^ CI - 
Lil 


nnnnnn 
UUUUUU 


C T 1 Mn 

t 1 1 nu 


I UUd 


ni CI oc 


r — 


nnnn i n 
UUUUlU 


r TPPU 


H 1 UUb 


ni c 1 u 7 


nocu 
UHon 


nn 1 un7 
UUI 4U(' 


C 1 IM 1 T 
t UN 1 1 


a Tnn7 
H lUUr 


ni CI L.L. 

Uiblbb 


DQ - 


nnnnot 
UUUU^Z 


r L - 


ft 7(14 n 
H 1 U lU 


nt C91 n 


nrnucT 

ULvrlS 1 


nn 7nun 


Ff P 


H 1 Ul 1 


ni C977 

Ul bz J J 


nci QV 


nnu7<>u 

UUt r b1 


F 1 M 1 CU 
r 1 n 1 on 


H 1 U iZ 


ni C9CC 
UibZbb 


nc 1 Qvii 

ULLHTU 


nncn i u 

UU9U 1 1 


FHT 

r n 1 


H 1 U 1 J 


ni C7n9 

U 1 S JU^ 


nr 1 TIM 

ULL 1 1 n 


nni lid 
UU 1 1 1 0 


FPFUFT- 


ft Tni u 

H 1 UIH 


ni C771 

uib^Ji 


n 1 rTQQ 


nni 1 7b 
uui 1 


FPMrMT- 


H. lUlS 


UlbJbZ 




nncnc? 

UU9US£ 


Funcpr 

r HUdr^ 


o Tni 
H 1 U lb 


Uibi 1 J 


ni T 

UL 1 


1 nnnnn 

1 UUUUU 


nop 

Urir 


□ Tni 7 
H 1 Ul r 


ni cut! 1 

U1DH1 1 


yr K — 


nnnunn 

UUU*1UU 


rap OK 


a Tn^n 
H 1 u^u 


ni cu7n 

U 1 9H r U 


DB 1 ur^ 

UK 1 vLO 


UUD Iff 




H 1 U£ 1 


U 1 39£U 


nPUQUQ 




GO s 

UU " 


Q Tn^T 


n 1 ecu 7 

U 1 D3H J 


UK vnUi 1 


UU 1 UUD 


GT IHTB 

U 1 1 1 1 1 0 




ni ccfk? 


nPWTRI 


nni 1 cc, 


HLT s 


H 1 


ni c<.i 7 

U 1 3b 1 J 


DP V 


nnnnnn 


n 1 • 


□ Tn^t 

H 1 U^D 


ni C<.77 
Ul Sbor 


npvri p- 


nnnn 1 n 

UUUU 1 u 


1 UD 


Q Tn^7 

H 1 [Jce 


u 1 bbbH 


nc 


nnnni 7 

UUUU 1 i 


1 F s 


Q Tn7n 

H 1 U JU 


U 1 9 r Ub 


U 1 — 


nnnn7fc 

UUUU^w 


1 LF = 


Q TO 71 


ni C771 
U19r Jl 


nTF 


ni nnnn 

U 1 UUUU 


1 1 R = 


Q Tn79 
H 1 U 


niC7C7 
U19r 30 


nwQ 

UWM — 


nnbnnn 

UUIUUU 




01 c - 
H » O 


nnnunn 

UUUHUU 


nwn 


nnnnnn 

UUUUUU 


INC UQEs 


Q1 7 - 
H 1 r 


nni nnn 

UUIUUU 


nwi 
uv 1 


nnnnn 1 

UUUUU 1 


IN 1 T 


DO 
DH 


nnnnnu 

UUUUU1 




nnnnn? 

UUUUUU 


1 V 1 V t V ~ 


OH 1 - 


nnnni n 

UUUU 1 u 




nnnnn 7 

uuuuuo 


IR s 


DC n 1 U 

btu 1 n 


nn7mn 

UU^UjU 




nnnnnu 

UUUUUU 


1 TfNT 


ac 1 1 
Bt LL 


nni anc 

UU l*iU9 


U V9 • 


nnnnnn 

UUUUUw 


1 DRV 




nni uni 

UUI HUl 


U VD 


nnnnflfi 


i DRVS 

1 Wn V w 


Q<^T - 


nnnnii9 
uuuuu^ 


nu7 

U V r — 


nnnnn? 

UUUUU r 


1 NRZ 


DD 1 ^nn- 


nnnnnn 
uuuuuu 




nni bn7 

UU 1 ^ uo 


1 REG 

1 l\ U 


Br 1 D30- 


nnnunn 
uuuiuu 


FHTUFT - 


nnnnio 

uuuuou 




DD 1 onn* 
Br 1 oUU- 


nn 1 nnn 
UU 1 uuu 


t nu 


ni tni A 

U 1 OU 1 0 


1 SLVS 


Br 1 Utt - 


nnnni u 

UUUU I H 


r MDOn 


ni tn7u 

U 1 OU ' ~ 


LF = 


r HMi 1 — 


nnn79n 


rMnpac 

tnur 


ni intsn 

U 1 OUDU 






nn<.77b 

UUbJJH 






LKVEC s 




WWW ■ V 


ER = 


00001 H 


LPB s 


CH7 = 


010000 


ERASE = 


00002H 


LPS = 


CKSUR 


001772 


ERFLG 


001125 


L OCT 


CLP = 


OOOOHO 


ERR = 


OMOOOO 


L CHAN 


CNTLU 


002032 


ERRTRP 


003652 


L CNTG 


CNTRLC= 


000003 


ERPVECs 


OOOOOH 


L DRV 
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SEQ 0120 



n 4 ii J ^n 

01H130 


L HDRi 


0 4 Ii Ii 


ROSU 


nn 4 77ft 
001770 


n 4 ii ii ii 


L. HDRZ 


n i Ii £ n^ 


ROY » 


nnnfnn 
OOOZOO 


OlHZbb 


L. HDRJ 


n 4 Ii ^ « n 

omzio 


or on 
REHO 


OObHoZ 


n 4 ii 

01'427b 


1 kJP 1 1 

L NEU 


n 4 n 4 i 

OlbUl 1 


OC CMC f — 

RioVtC= 


nnnn 4 ft 
000010 


n 4 Ii 7cn 


L. OUls 


n 4 £^n^ 4 
OlbOZl 


or Ti i0kj 
Pet lURN 


n4 74 nil 
01 JIOH 


n 4 ii 4 Ii n 

OlHiHO 


L kNu 


n4 li77C 
01'f<'''9 


REVRO 


006500 


n4 Ii nil 4 


1 CI 11 

L. SLV 


OlHeee 


RHINIT 


005220 


n 4 fti 4 n£. 

omiob 


1 CUD 

L SHK 


m cnn^ 
OibODZ 


RHR » 


OOOOOH 


n 4 Ii 4 ^ 4 

OIHIZZ 


ntrt " 


OZOODO 


RUD : 


0000C6 


ft 4 ll 4li 4 

OIHZH 1 


nort ' 


UUUHUU 


RHOOFF= 


000002 


0 iHHZo 


nnutL - 


UUUZ9U 


RIO sXOOOOOO 


n4 Ii 77£. 

OiH orb 


noL s 


ni nnnn 
0 1 0000 


RU s^OOOOOl 


m iin'9'9 
OiHDZZ 


MD — 


UUUUZH 


R12 ='/.mmi 


m U 4 7 7 


Mvr - 


nni nnn 
UUIUUU 


R13 =^000003 


nnnnnc 
UUUUUb 


M FnT 

n. CU 1 


ni unn? 

Ul HUUZ 


Rm =%00000M 


nn 1 nnn 
UU lUUU 


M MOM 

n. riMn 


m 7b Cb 

Ul 07 97 


R15 =^.000005 


ni '97n9 


MDMPTD 

nMrlr i K 


nni <L7b 
uuibrf 


SC = 


100000 


UUUUUU 


urn - 


ni nnnn 

U 1 UUUU 


SCOPE = 


lOMOOO 


nnn^uu 


•JFF 

ntr - 


nnbnnn 

UUIUUU 


SCPflOR 


001 OOH 


1 77unn 
I r rHUU 


MFM - 


nnbnnn 

UUIUUU 


SDUN - 


000020 


UUbb lb 


kinp - 
nUr - 


nnnnnn 

UUUUUU 


SKEHTS 


013110 


nni 1 9? 
UUi iZZ 


unPMi 1 — 


nnmnn 

UUUoUU 


SLA = 


000001 


nnu£>7C> 
uuibob 


riK^r LU 


nni 171 

UU 1 1 o 1 


SLAVES 


006M34 


nni net. 
uuiUbb 


nau — 


nnnunn 

UUUl UU 


SLR = 


\7777^ 


nnnnni 


nrxQi n 

UL 1 HLU 


nni 1 ?n 

UU 1 1 £U 


SLVAVA 


005170 


UU 1 9 r 1 


nn 1 n 1 T 

VU 1 II 1 1 


nni 1 utt 

UU 1 1 ^ D 


SLVNUn 


001007 


mbunn 

lUtlUU 


np 1 s 

Ur 1 — 


n?nnnn 

UUUUUU 


SLVPTR 


001010 


nnnni i 

UUUU 1 1 


OP 


nnn?nn 

UUUUUU 


SLVT8L 


001166 


nnnni n 

UUUUlU 


ncr 

UAL - 


nnni nn 

uuu 1 UU 


SN = 


000030 


nnni nn 

UUUl UU 


niiT 

UU 1 


nn??u? 


SNPT 


005620 


nnnnni 

UUUUUI 


nilTBIlF- 

uu 1 Dur - 


nnc7cn 

UU9f 9U 


SPACE 


oomi2 


nnnnn? 

UUUUUa 


ni iTROP 

UU 1 UHr 


nn7i cn 

UUO 1 9U 


SPACE 2 


oomit 


nm 


UU 1 ar L 


nn7n&u 

UU^U9*l 


SPCFHO= 


000030 


nnni nn 


PQPtirr- 


nnn i i u 

UUU lit 


SPCREV= 


000032 


nnc7cn 

UU9r 9U 


rMoo 


nni nnn 
UUl uuu 


SPR = 


002000 


nnnnnn 

UUUULU 


POT 

r M 1 - 


nnnn?n 

UUUULU 


SSC 


000100 


nnni nn 

UUUl UU 


PFFI pr- 
rtr Lr 


nnn?nn 

UUUUUU 


ST 1 nTB 


001'»20 


nni 197 

UUl 1 Zo 


PFC 

r 1 0 - 


nnnnun 

UUUU7U 


STKPTR= 


000600 


ni 7&cn 
Ui obbU 


or 1 c>nn- 

r t 1 bUU- 


nn?nnn 

UUIUUU 


SUSUR 


006754 


ni 7Ct>7 
Ul<j9br 


PFUFr - 


nnnn?u 

UUUUUI 


SUR 


001002 


ni 77C1 


rut - 


nn?nnn 

UUAUUU 


SUREG 


000176 


ni 7C'9^ 


Pip - 

r 1 r — 


n?nnnn 

UAUUUU 


SU06 = 


000100 


ni 771 n 

U 1 lU 


p 1 pn - 

r 1 KU - 


1 7777? 


SU07 = 


000200 


ni 7t7i 
Ul obol 


p 1 PUFr - 


nnn?un 

UUU^HU 


SU08 = 


GOGH 00 


nnnni ? 

UUUUl Z 


Pl CP- 
r L^L OR- 


1 7?i;un 


SW09 = 


001000 


1 77CU<. 

1 f f bHb 


pi Kurr- 


nnni nu 

uuu 1 U*1 


SUlO = 


002000 


nnni nn 
uuuiuu 


PPTFI R 


nni 1 ?f> 

UU 1 1 


SWll = 


OOHOOO 


177^1to 

If 1 7 1 w 


PSEL = 


002000 

w wm www 


SU13 = 


020000 


1775m 


PSU = 


\7777b 


sum : 


040000 


015005 


PUBLIS 


003350 


SU15 = 


100000 


01'4671 


RDBUF = 


016030 


TAP 


040000 


015775 


RDFUD = 


000070 


TBITVE= 


000014 


Om65>4 


RDREV = 


000076 


TC 


000032 



J 
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TCRLF 


00236Z 




TRflPVE= 


00003H 


TEnPST 


001 7GH 




IRE = 


OHOOOO 


TIB 


00t7fa2 




TRTVEC= 


ocoom 


TinER 


oo^^70 




TSTNUn 


00tl2H 


TltlERR 


00H500 




TSTOOl 


007H22 


TinERO 


00H6m 




TST002 


00750b 


T IMERl 


OOHHHH 




TST003 


00756>4 


TmOK 


OOHbZb 




TSTOOH 


00765H 


TinON 


OOHHOO 




TST005 


007762 


Tl-B = 


177562 




TST006 


0100H6 


TJ- ISR 


003610 




TST007 


010132 


TKS s 


177560 




TSTOiO 


010232 


T^VEC = 


000060 




TSTOll 


010352 


TMBOSE 


001C12 




TST012 


010^50 


Tticno 


005600 




TST013 


010560 




1 r 4,HH0 






□ lO^'ZU 


Tn^ = 


ooooot 




TST015 


011012 


•'PB = 


l-'Sbfe 




TST016 


011120 


TPS = 


r 75614 




TST017 


0112m 


TPVEC = 


OOCOb>t 




TST020 


0113m 


nes 


Olb'4 30 


OGO 






ERRORS 


DETECTED 


0 







D2TUDD- DZTU00=0ZTUDD SHL DZTUDD P 1 1 
RUN- T I HE 5 9 3 SECONDS 
PUN- T I nE RATIO 581/15=37 H 
CORE USED 20K « 39 PRGES) 



E 10 
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TABLE 



TST021 


oimi«i( 


TYPHDR 


00727H 


TST022 


011750 


TYPOCT 


002632 


TST023 


011756 


UBREAK: 


177770 


TST02H 


012100 


UNS = 


04000C 


TST025 


012230 


UMTFNO 


001127 


TST026 


012360 


UPE = 


020000 


TST027 


012510 


UAITRD 


005256 


TST030 


01257H 


WfllTTI 


005260 


TST031 


013116 


UC = 


000002 


TST032 


0132itH 


UCE : 


OH 0000 


TTIN 


0022HH 


UCHKF = 


000050 


TTINl 


0022614 


UCHKR = 


000056 


TTIN2 


002300 


UFm = 


000026 


TYPDEC 


0027H0 


UFUO = 


000060 


TYPE = 


OOOOOM 


URDCNT= 


1 77600 


TYPEl 


00235H 


URITE 


0054 4 H 


TYPE2 


002H02 


URL : 


OOHOOO 


TY0E3 


002m0 


URT. BK 


005536 


TYPE»4 


002m H 


UTBUF = 


016030 


TYPFLG 


001130 


ICHARC 


002326 



SEQ 0121 

SCNTRL 002327 

fCRLF 002330 

5FILL 002317 

fHT > 000011 

(NULL 002316 

STKFLG 002321 

STPB 002324 

tTPFLG 002320 

flPS 002322 

= 016430 

HLT 003654 

INPUT 003476 

RESTO 002602 

REUIN 005362 

SAVE 002560 

SCOPE 004144 

TYPE 002334 



I 



,J 



